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Add autosctup.asp 



<%@ Languagc= VBScript %> 
<!- ^include file^^support/globa^constants.asp" -> 
<!— ^include file=\7support/dbConnection.asp" — > 
<!— ^include file=".7support/adoUtils.asp" -> 
<!- # include ftlc^.isupport/srcTab.asp" — > 



if RequestformflsLoaded") = "true" then 

l_product_id = Sessionf PRODUCT JD") 
l_src_indicator = Request form("P_sllC_FNDlCATOR") 
l_source_name - Request form("P_SOURCE_NAME") 
in_source_name = "0" then l_sourcc_name = "Undefined" 

objRST.open "select src_cat_name from source where source_name - '" & l_source_name & "'\ strSQLOLEDB, 
adOpcnStatic, adLockOptimistic 

if not objRST.eof then l_src_cat_name = objRST(0) else l_src_cat_name = "Undefined" 
objRST.close 

l_valid_from = Requestform("P VALID_FROM") 
l_valid Jo = RequestForm("P_VALID_TO") 

l_setup_mask = Request. Form("P_SETUP_M ASK") 
l_e_sct~name = Request Form^" P_E_SET_N AM E") 
if I_e_sct_name = "0" then l_e_set_name = null 

objCMD.ActiveConnection = strSQLOLEDB 

objCMD.CommandText = "sp_add_autosetup__scheme" 

objCMD.CommandType = adCmdStoredProc 

objCMD. Parameters. Refresh 

objCMD.Parameters(l). Value = l_product_id 

objCMD.Paramcters(2). Value = ljsrc_catjiarne 

objCMD.Parameters(3). Value = l_src_indicator 

objCMD.Parameters(4). Value ~ l_sourcc_namc 

objCMD.Parameters(5). Value = l_valid_from 

objCMD.Parameters(6). Value = l_va!id_to 

objCMD.Parameters(7). Value = l_setup_mask 
objCMD.Parameters(8). Value = l_e_set_namc 
Set TempNonSessionVar - objCMD.ExecuteO 
response.redirect ("tabautosetup.asp") 
end if 



%> 

<html> 
<head> 

<titJe>IMT Network</titIe> 
</head> 

<body bgcolor="#99CCFF" vlink="000000" link*"003366"> 



<form method="post" action="add_autosetup.asp'' namc=forml id=forml> 
<table width="640" border="0" cellpadding="2"> 
<tr valign="top"> 

<td align="lcft" width="640" colspan="3"ximg src=\7graphics/add I222.gif width="26" heights" 14"x/td> 
</tr> 

<tr valign="top"> 

<td aJign="Icft" width="640" coIspan="3"> 
<pxnobr> 

<img src=".7graphics/blank!222.gir width="20" height="l6"ximg src==\7graphics/blankl222.gir width="20" 
heights" 1 6"ximg src=".7graphics/blank 1222.gif width="20" height="16"ximg src=".7graphics/blank 1222.gif width="20*- 
heighr="l6"ximg src=".7graphics/blank 1222.gif* width="20" height="16"ximg src=".7graphics/blank 1222.gif width^O" 
heights* 16"ximg src=".7graphics/blank 1222.gif" width=*20" height="16"> 

<input typc="image" src=".7graphics/submit 1222.gif width="54" height="16" border="0" a!t="Submit to Database"> 



<% 
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<img src=\7graphics/blank I222.gif width="20" height="l6' , ximg src=\ygraphics/blank 1222.gif width="20" 
height=" 1 6"xfont face=" Verdana, Arial, Helvetica, sans-serif size="-4"xa hrer="tabautosetup.asp"> Return 
to AutoSetup Parameters Mcnu</ax/fontX/nobr> <fp> 
<tabie width="265" border="0" cellspacing="3" cellpadding="2"> 
<tr> 

<td bgcolor="003366" height^S" width="I66" align="center"> 
<div align="center"xfont face=" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"xbxfont size^I">SOURCE 
NAME </fontx/bx/fontx/div> 
</td> 

<td bgcolor^^CCFF" height="20" width="36(T align="lerV> 
<div align="left"xfont face=" Verdana, Arial, Helvetica, sans-serir co!or="#FFFFFF"xbxfont size=T 
color='#00000(T> 

<% 

strSQL = "select U_SOURCE_NAME FROM Source_descriptions " 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "P_SOURCE_NAME\6, "SELECT SOURCE" 

objRST.close 

%> 

</fontx/bxy fontx/d i v> 

</td> 

</tr> 
<tr> 

<td bgcolor="003366" height="25" width="4 1 - align="center"> 
<div align="ccnter"xf 0 nt face^Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxf 0 nt 
size="l">SOURCE<br> 

INDICATOR </fontx/bx/font> 
</div> 

</td> 

<td bgcolor="#99CCFF" height="20" width="360" align="lcft"> 
<div align="Ieft"xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size="r 
color="#000000"> 

<input type-TEXT NAME- P_SRC_fNDICATOR' id=0 maxlength="30" size="6"> 
</fontx/bx/f 0 nt> 

</div> 
</td> 

</tr> 

<tr> 

<td bgcolor="003366* height="25" width=MI" align="center"> 
<div align="center"xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxf 0 nt size="l"> VALID 
FROM </fontx/bx/f 0 nt> 

</div> 

</td> 

<td bgcoIor="#99CCFF" height="20" width="360" align-"lefV> 
<div aJign= ,, .Ieft"xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxf 0 nt size=T 
color="#000000"> 

<input type=-TEXT NAME-P_VALID_FROM' id=0 maxlenglh="30" size=" 1 5"> 
</fontx/bx/f 0 nt> 

</div> 
</td> 

</tr> 

<tr> 

<td bgcolor="003366* height^S" width="4I" align="ccntcr"> 
<div align="center"xfont facc="Verdana, Arial, Helvetica, sans-serif color='#FFFFFF"xbxfont size=" 1 "> VALID TO 
</fontx/bx/font> 

</div> 

</td> 

<td bgco!or="#99CCFF" height="20" width-"360" align="len"> 
<div align="left"xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont sizc=" 1 " 
color="#000000"> 

<input type=TEXr N AME- P_ V ALI D_TO' id=0 maxlength="30" size=" 1 5"> 
</fontx/bx/font> 

</div> " 
</td> 

</tr>- 
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<tr> 

<td bgcolor="003366" heighr="25* width="4I" align="center"> 

<div a!ign="center"xfont face=" Verdana, Arial, Helvetica, sans-scriP «>lor="#FFFFFF ,, xbxfont size^M^SETUP 
MASK </fontx/bx/f 0 nt> 

</div> 

</td> 

<td bgcolor="#99CCFF" height="20" width="360" a]ign="lefT> 
<div align="left"xfont face=" Verdana, Arial, Helvetica, sans-scriP color="#FFFFFF"xbxfont size=*l" 
color="#000000"> 

<input type-TEXT NAME-P_SETUP_MASK.' id=0 maxlength=-30" sizc="15-> 
</fontx/bx/font> 

</div> 
</td> 

</tr> 

<tr> 

<td bgcolor="003366" height="25" width="41" aiign="ccnter"> 

<div aJign^'centerxfont face=" Verdana, Arial, Helvetica, sans-seriP coIor="#FFFFFF"xbxf 0 nt size="I">EXPENSE 
SET NAME</fontx/bx/font> 

</div> 

</td> 

<td bgcolor="#99CCFF" height="20" width="360" aJign="lcfV> 
<div align-'lerVxfont face="Verdana, Arial, Helvetica, sans-serif' coIor="#FFFFFF"xbxfont size="l" 
color="#000000"> 

<% 

strSQL = "select e_set_name FROM expense_sets where product_id = * & 

SessionfPRODUCTJD") & " order by e_set_name " 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "P_E_SET_NAME\6, "SELECT EXPENSE 

SET", l_e_sct__name 

objRST.dose%> 
</fontx^x/font> 

</div> 
</td> 

</tr> 

</table> 

<p> </p> 

</td> 
</tr> 
</table> 

<input type=" HIDDEN" value="true" riame="IsLoaded"> 
</form> 
</body> 
</htm!> 
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add campaign def.asp 



<%@ Languagc=VBScript %> 
<!-#include file^.ysupport/globa^constants.asp" -> 
<!-#include file^Wsupport/dbConnection.asp" -> 
<!-#includc fiIc=".7support/adoUtils.asp" -> 
<!-# include filc=".7support/srcTab.asp" -> 



. if Request form("Is Loaded") = "true" then 

l_product_id = Session("PRODUCT_lD") 

lj*mpaign_code = requestform("P_CAMPAJGN_CODE") 

f campaign~description = requestform("P_CAMPAIGN_DESCRIPT10N") 

Csrc_cat_name = Requestform("P_SRC_CAT_NAME") 

if not(l_src_cat_name > "0") then l_src_cat_name = "" 

l_campaign_date = requestforTnfP_CAMPAIGN_DATE'') 

if not(l_campaign_date > " ") then l_campaign_date = null 

I_panel_scheme = Request Form("P_PANEL_SCHEME") 

if not(l_panel_scheme > "0") then l_panel_scheme ~ mm 

objCMD-ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_add_campaign_def' 
objCMD.CommandType - adCmdStoredProc 
objCMD.Parametcrs.Refresh 
objCMD.Parameters(l). Value - l_product_id 
objCMD.Paramctcrs(2). Value = l_campaign_code 
objCMD.Parajneters(3). Value = I_campaign_description 
objCMD.Paramcters(4). Value = l_src_cat_name 
objCMD.Parameters(5).VaJue = I_campaign_date 

objCMD.Parameters(6). Value = l_panel_schcme 

Set TempNonScssionVar = objCMD.ExecuteO 
response.redirect ("tabautosetup.asp") 
end if 



%> 

<html> 
<head> 

<title>IMT Network</title> 
</head> 

<body bgcolor="#99CCFF- vlink="00000<T link="003366"> 



<form method="post" action="add_campaign_def.asp" name=forml id=forml> 
<table width="640" border="0" cellpadding="2"> 
<tr vaJign="top"> 

<td aiign="!eft" width="640" colspan="3"ximg src=".7graphics/add 1222.gif width="26" height=" 1 4"x/td> 
</tr> 

<tr vaJign="top' i > 

<td align="lcft" width="640" colspan="3"> 



<img src= t ".ygraphics/blankl222.gir wtdth="20" height="16"ximg src=\7graphics/blank 1222.gif* width="20" 
height=" i 6"ximg src=".7graphics/b!ank 1 222.gif width="20" height=" 1 6"ximg src=Vigraphics/bIank 1 222.gif* width="20" 
height= s "l6 w ximgsrc='".ygraphics/blankl222.gir width="20" heights" 16"ximg src=".ygraphics/blank 1222.gif width="20" 
height="16"ximg src=".7graphics/blank 1222.gif width="20" height="16"> 

<input type="image" src=\./graphics/submit 1222.gif width="54" height="16" border="0" aIt="Submit to Database"> 
<img src=".7graphics/blankl222.gir width="20" height^" 1 6"ximg src="../graphics/blankI222.gir width="20" 
height 5 *" 1 6"xfont face=" Verdana, Arial, Helvetica, sans-serif size="-4"xa hre£="tabautosetup.asp">ReUim 
to AutoSctup Parameters Menu</ax/fontx/nobr> </p> 

<table width="265" border="0" cellspacing="3" cellpadding="2"> 
<tr> 

<td bgcolor="003366" height="25" width="166" align="center"> 



<% 



<pxnobr> 
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<div align="center*xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size="l">CAMPAIGN 
CODE </fontx/bx/fomx/div> 
</id> 

<td bgcolor="#99CCFF" height="20" width="360" align="left"> 
<div align="!eft"xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size=" 1" 
color=-#00000<r> 

<input type^TEXT" NAME- P_CAMPAJGN_CODE* id=0 maxlength="30" size="6"> 
</fontx/bx/fontx/div> 

</td> 

</lr> 
<tr> 

<td bgcolor="003366" height="25" width="!66" align="centcr"> 

<div align="center"xfont face=" Verdana, Arial, Helvetica, sans-serif colors FFFFFF"xbxfont size=" 1 ">CAMPAIGN 
DESCRIPTION </fonix/bx/fonix/div> 
</td> 

<td bgcolor="#99CCFF" height="20" width="360" align="IefV> 
<div align="Ieft"xforit facc="Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size=" 1" 
color="#000000"> 

<input type=TEXT" NAME- P_CAMPAIGN_DESCRIPnON' id=0 maxlength="50" 

size="50"> 

</fontx/bx/fontX/div> 

</td> 

</tr> 



<tr> 

<td bgcolor="003366" height="25" width="4r align="center"> 

<div align="center"xfont face="Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont 
size=T>SOURCE<br> 

CATEGORY </fontx/bx/fcnt> 
</div> 

</td> 

* <td bgcolor="#99CCFF" heigh t="20" widih="360" align="lefV> 
<div align="lcff xfont face-" Verdana, Arial, Helvetica, sans-serif coIor="#FFFFFF"xbxfont size="l" 
color="#000000"> 

<% strSQL = "select distinct src_cat_name from source where productjd = " & 
Session("PRODUCT_ID") & " order by src_cat_name" 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "P_SRC_CAT_NAME",6, "SELECT SOURCE 

CATEGORY", l_src_cat_name 

objRST.dose 

*<input typc=TEXT" NAME-P_SRC_IDENTIFIER' id=0 maxlcngth="30" 

size="6"> 

%> 

</fontx/bx/font> 

</div> 
</td> 

</tr> 

<tr> 

<td bgcolor="003366" height="25" width="4 1 " align="center"> 

<div align="center"xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size="l">CAMPAIGN 
DATE </fontx/bx/font> 

</div> 

</td> 

<td bgcoior="#99CCFF" height="20" width="360" align="left' , > 
<div a!ign="!efl"xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxf 0 nt size="l" 
color=-#000000"> 

<input type^TEXr NAME- P_CAMPAIGN_DATE' id=0 maxlength="3(r size="6"> 
</fontx/bx/font> 

</div> 
</td> 

</tr> 

<tr> 

<td bgcolor="003366" height="25" width="4 1 " align="centcr"> 

<div align="center"xfont face="Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size=" 1">PANEL 
SCHEME </fontx/bx/font> 
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</div> 

</td> ■ • 

<td bgcolor="#99CCFF" height="20" width="360" aJign="Ieft"> 
<div align="lcft"xfont face=" Verdana, AriaJ, Helvetica, sans-seriP coIon="#FFFFFF"xbxfont size=" I * 
color="#000000"> 

<% strSQL = "select distinct pane!_scheme from autosctup_panel_def where product_id 
= " & Session("PRODUCT_ID") & " order by panel_scheme" 

objRST.open strSQL, strSQLOLEDB, adOpenStalic, adLockOptimistic 
showQueryListBox objRST, "P_PANEL_SCHEME",6, "SELECT PANEL 

SCHEME", l_pancl_schcme 

objRST.close 

'<input type="TEXT NAM E- P_S RCJDENT1 FIE R' id=0 maxlength="30" 

sizc= m 6 m > 

%> 

</fontx/bx/font> 

</div> 
</td> 

</tr> 
</table> 

<input type=" HIDDEN" vaJue="truc" name="IsLoaded"> 
</form> 
</body> 
</hlml> 
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add panel dcf.asp 

<%@ Languagc=VBScript %> 
<!- # include fi!e=\7support/global_constants.asp" -> 
<!- # include file=".7support/dbConnection.asp" -> 
<!- #include file=V7support/adoUtiIs.asp" -> 
<!- # include file=\7support/srcTab.asp" -> 



<% 

if Request formflsLoaded") = "true" then 

l_product_id = Session("PRODUCT_ID") 
|_pancl_scheme = request form("P_PANEL_SCHEME") 
l_panef codes = request formCP.PANEL.CODES") 
l_panel_name = Request form("P_PANEL_NAME") 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_add_panel_der 
objCMD.CommandType = adCmdStorcdPrOc 
objCMD. Parameters. Refresh 
objCMD.Parameters(l). Value = l_product_id 
objCMD.Parameiers(2).Value = l_panel_scheme 
objCMD.Parametcrs(3). Value = l_panel_codes 
objCMD.Parameiers(4).Valuc = l_panel_name 

Set TempNonSessionVar = objCMD.ExecuteO 
response.redirect ("tabautosetup.asp") 
end if 



%> 

<himl> 
<head> 

<iitle>IMT Network</title> 
</hcad> 

<body bgcolor="#99CCFF" vlink="000000" link="003366"> 



<form mcthod="post"' action="add__pane!_def.asp" name=forml id=formI> 
<iable width="640" border="0" cellpadding="2"> 
<lr valign="top"> 

<td align="left" widuV="640" colspan="3"ximg src=".7graphics/add 1222.gif width="26" height="14"x/td> 
</tr> 

<tr valign="top"> 

<td align="left" width="640" colspan="3"> 
<pxnobr> 

<img s^c= ,, .7g^aphics/blankl222.gi^ , widuv="20" height="16"ximg src^7graphics/blank 1222.gif width="20" 
height="16"ximg src=\7graphics/blank 1 222.gif* width="20" height 3 " 16"ximg src=\7graphics/blank 1222.gif width="20" 
height 3 " 1 6"ximg src=\7graphics/blankl222.gir width="20" height="16"ximg src=\7graphics/blank I222.gif width="20" 
heighr="l6"ximg src=\7graphics/blankl222.gir width=*"20" height="16"> 

<input type="image" src=".7graphics/submitl222.gir width="54" hcight=*"16" border="0" alt="Submit to Database^ 
<imgsrc=".7graphics/blankl222.gir width="20" height 3 " 1 6"ximg src=".7graphics/blankl 222.gif width="20" 
height="16"xfont face="Verdana, Anal, Helvetica, sans-serif size="-4"xa href^'tabautosetup.asp^Retum 
to AutoSetup Parameters Menu</aX/fontx/nobr> </p> 

<table width="480" border="0" ccllspacing="3" cellpadding="2"> 
<tr> 

<td bgcolor^'OO^o^" height="25" width=M66" align="center"> 
<div align="center"xf 0 nt face=" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"xbxf 0 nt size=" 1 ">PANEL 
SCHEME </fontx/bx/fontx/div> 
</td> 

<td bgcolor="#99CCFF" height="20" width="360" aJign="left"> 
<div align="left*xfont face=" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"xbxf 0 nt size="l" 
color="#000000"> 

<input type=TEXT NAME-P PANEL SCHEME" id=0 maxlength="50" size="50"> 
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</fontx/bx/fontX/div> 

</td> 

<XI> 
<tr> 

<td bgcolor="003366" hcight="25" width=" 166" align="ccntcr"> 
<div align="ccnter"xfont face^Verdana, Aria], Helvetica, sans-serir color="#FFFFFF"xbxfont size="l">PANEL 
CODES </fontx/bx/fontx/div> 
</td> 

<td bgcolor="#99CCFF" height=-20" width="360" aiign="left"> 
<div align^-left-xfont face="Verdana, Aria], Helvetica, sans-serir color="#FFFFFF"xbxfont size="r 
color="#000000"> 

<input type-TEXT NAME- P_PANEL_CODES' id=0 maxlength="25(T sizc=" 100"> 
</fonix/bx/fontx/div> 

</td> 

</tr> 
<tr> 

<td bgcolor="003366" height="25" width="!66? align="center"> 

<div align^center-xfont face^" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"xbxf 0 nt size="I">PANEL 
NAME </fontx/bx/font> 

</div> 

</td> 

<td bgcolor="#99CCFF" height="2(T width="36(T aJign="len"> 
<div align="left"xfont face=" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"xbxf 0 nt sizc="I" 
color-"#000000"> 

<input type^TEXT NAME- P_PANEL_NAME* id=0 maxlength="50" size="50*> 
</fontx/bx/fonl> 

</div> 
</td> 

</tr> 
</tablc> 

<input type="HIDDEN- vaiue="true" name^IsLoadcd^ 
</form> 

</body> , 
</html> 
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add renewal nsdef.asp 



<%@ Language=VBScript %> 
<!— U include file^^support/globa^constants.asp" -> 
<!— ^include file=\7support/dbConnection.asp" — > 
<!— ^include file^^support/adoUtils.asp" — > . 
<!- ft include rile=".7support/srcTab.asp'' -> 



if Request form("IsLoaded") = "true" then 

l_product_id = SessionCPRODUCTJO") 

l_src_indicator = RequestformCP^SRC.INDICATOR'') 

I _prior_src_indicator = Requestform("PJ>RJOR_SRC JNDICATOR") 

l_source_name = Request formCP_SOURCE_NAME") 

objRST.open "select src_cat_name from source where source_name = " & l_sourcc_namc & mtm 9 strSQLOLEDB, 
adOpcnStatic, adLockOptimistic 

if not obj RST.eof then I_src_cat_name = obj RST(O) else l_src_cat_name - "Undefined" 
objRST.close 

l_valid_from = Request.form("P_VAUD_FROM") 
l_validjo = Request Form("P_VALID,TO") 
response, write (l_prior_src_indicator) 
objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandTcxt = "sp_add_rcnewal_psder 
objCMD.CommandType = adCmdStorcdProc 
objCM D. Parameters. Refresh 
objCMD.Paramcters(l).Value = l_product_id 
objCMD.Paramcters(2). Value = l_src_cat_name 
objCMD.Parameters(3).VaJue = l_src_indicator 

. objCMD.Parameters(4). Value * l_priorsrc_indicator 
objCMD.Parameters(5). Value = l_source_name 
objCMD.Parameters(6). Value = l_valid_from 
objCMD.Parameters(7). Value = l_vaiidjo 
Set TempNonSessionVar = objCMD.ExecuteO 
response.redirect ("tabautosetup.asp") 
end if 



%> 

<html> 
<head> 

<title>IMT Network</litle> 
</head> 

<body bgcoIo^^c^CCFF'' vlink="000O00" link="003366"> 



<form method="post" action="add_renewal_psdef.asp" nanrc^forml id=*forml> 
<table width="64(T border="0" cellpadding="2"> 
<tr valign="top*> ■ 

<td align="lett" width="640" colspan="3"ximg src=".7graphics/add 1222.gif width="26" height="14"X/td> 
</tr> 

<tr valign="top"> 
<td align="teft" width="640" colspan="3"> 
<pxnobr> 

<img src=".7graphics/blank 1 222.gif widlh="20" heigh t="16"ximg src=".7graphics/btank 1 222.gi f width="20" 
height="16"ximg src=\7graphics/blankl222.giP width="2(T height="l6"ximg src= l ".7graphics/blankl222.gir width S3 "20" 
height="16"ximg src=".7graphics/blankl222.gir width="20" height="16*ximg src=".7graphics/blankl222.gir width="20" 
hcight="16"ximg src=".7graphics/blank 1222.gif width»"20" hcight=" 16"> 

<input type=" image" src= E ".7graphics/submitl 222.gif* width="54" height=* 1 6" border^O" alt="Submit to Database"> 
<img src=".7graphics/blankl222.gif width="20" hcight="16' , ximg src=".7graphics/blankl222.gir width="20" 
height="l6 ,, xfont facc=" Verdana, AriaJ, Helvetica, sans -sen r sizc=M"xa hre£="tabautosetup.asp*>Retum 
to AutoSetup Parameters Menu</ax/fcntx/nobr> </p> 

<tablc width="265" border="0" ccllspacjng="3" cellpadding="2"> 
<tr> 



<% 
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<td bgcolor="003>66" hcight="25" width="166" align="center"> 

<div align="ccntc"xfont face=" Verdana, Arial, Helvetica, sans-serif color=="^FFFFFF"xbxfont size="r>SOURCE 

NAME </fontx/bx/fontx/div> 
</td> 

<td bgco!or="#99CCFF" height="20" width="360" align="lefV> 
<div align="left"xfont face=" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"xbxfont size="l" 
color="#000000"> 

<% 

strSQL = "select U_SOURCE_NAME FROM Source_descriptions " 
objRST.open strSQL, strSQLOLEDB, adOpcnStatic, adLockOptimislic 
showQueryLtstBox objRST. "P_SOURCE_NAME",6, "SELECT SOURCE", 

objRST.close 

%> 

</fontx/bx/fontx/div> 

</td> 

<Jxr> 
<tr> 

<td bgcolor="003366" height="25" width="4P align="center"> 

<div align="center , xfont face=" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"xbxfont 
sizc="l">SOURCE<br> 

INDICATOR </tbntx/bx/font> 
</div> 

</td> 

<td bgcolor="#99CCFF" height="20" width="360" align="lcrT> 
<div align="left"xfont face*" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"xbxfontsize="!'' 
color="#000000"> 

<input type=TEXT" NAME=*P_SRCJNDlCATOR* id=0 maxlength="30" size="6"> 
</fontx/bxyf 0 nt> 

</div> 
</td> 

<Ar> 

<tr> 

<td bgcolor="003366" height="25" width="4 1 " align="center"> 
<div align="center ,, xfont face=" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"xbxfont size="r>PR10R 
SOURCE<br> 

INDICATOR </fontx/bx/font> 
</div> 

</td> 

<td bgcolor="#99CCFF" height="20" width="360" align="Ieft"> 
<div align-"left"xfont face=" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"xbxfont size=" I " 
color="#000000"> 

<input type-TEXT NAME^PRIOR.SRCJNDICATOR' id=0 maxlength="250" 

si2e="100-> 

</fontx/bx/font> 

</div> 
</td> 

</tr> 

<tr> 

<td bgcolor="003366" height="25" width="4 1 * align="center"> 

<div align="center J "xfont face=" Verdana, Arial, Helvetica, sans-serir col or="#FFFFFF"xbx font size=" 1 *> VALID 
FROM </fontx/bx/font> 

</div> 

</td> 

<td bgcolor="#99CCFF" height="20" width="360" align="lett"> 
<div align="left"xfont facc=" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"xbxf 0 nt size="l" 
color="#000000"> 

<input typc=TEXr NAME- P_VALID_F ROM' id=0 maxlcngth="30" size="15"> 
</fontx/bx/font> 

</div> 
</td> 

</tr> 

<tr> 

<td bgcolor="003366" height="25" width="4 1 " align="center"> 
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<div aJign="ccnter"xfont face="Verdana, Arial, Helvetica, sans-serif coIor="SFFFFFF"xbxfont size=* 1 "> VALID TO 
</font></bx/font> 

</div> 

</td> 

<td bgcolof="#99CCFF" height="20" width="360" align="lefV> 
<div aJign="left w xfont facc=" Verdana, Arial, Helvetica, sans-seriP color= w #FFFFFF"xbxfont size=T 
color="#000000-> 

<input type^TEXT" NAME- P_VALID_TO' id=0 ma\length="30" size=M 5"> 
</fontx/bx/font> 

</div> 
</td> 

</tr> 

</table> 
<p> </p> 

</td> 
</tr> 
</table> 

<input type="HIDDEN" value^tnie" namc="lsLoadcd"> 
</form> 
</body> 
</html>. 
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addcamp.asp 



<%@ Language= VBScript %> 
<!- ^include file=\ysupport/globaJ_constants.asp" -> 
<!— ^include file=".Vsuppoa / dbConneciion.asp'' -> 
<!- #includc file^.Vsuppon/adoUtils.asp" -> 
<!- U include file="../suppoa / srcTab.asp" -> 

<% 

'on error resume next 

dim p_camp(4), p_camp_t\pe(4), p_camp_status(4) J p_camp_date_fr(4) 

dim p_camp_datc_to(4), p_agt_code{4),p_agt_de$cr(4) 

dim p_e_sc t_n am e(4 ) , p_r_sct_namc(4), p_newstand__sale(4) 

dim p_budgeted_ J gross_pct(4), p budgeted_vol(4) 

ADDED = FALSE 

errors = false 

' Response.Write THis should work" 
for i = 0 to 4 

p_camp(i) = REQUESTCp_camp" & cstr(i) ) 
p"camp_type(i) = REQUEST("p_camp_type" & cstr(i) ) 
p_camp_status(i) = R£QUEST("p_camp_status" & cstr(i) ) 
p_camp_date_fr(i) = REQUEST( ,, p_camp_date - fr" & cstr(i) ) 
p"camp_datcjo(i) = REQUEST( w p_camp_date_to" & cstr(i) ) 
p_agt_code(if = REQUESTC^ag^code" &cstr(i)) 
p_agt~descr(i) = R£QUEST("p_agt_descr" & cstr(i) ) 
p_e_sct_name(i) = R£QUEST("p_e_sct_name" & cstr(i) ) 
p_r~setZname(i) = REQUEST("p_r_set_name" & cstr(i) ) 
•p_ncwstand_sale(i) = REQUEST("p_newstand_saIe" & csir(i) ) 
p"budgeted_iross_jKt(i) = REQUEST ("p_budgcted_gross_pcr & cstr(i) ) 
p~budgctcd_vol(i) = REQUEST("pJ>udgcted_vot" & cstr(i) ) 
'Response. Write p_camp(i) & "<br>" & p_camp_status(i) 

* Response.Write p_source{i) & p_src_ind(i) . 
if p_camp(i) > " " then 

added - true 

' Response.Write p_camp(i) & "<br>" & p_camp_slatus(i) 
objCMD.ActiveConncction = strSQLOLEDB 
objCMD.CommandText = "sp_Add_Campaign" 
objCMD.CommandTypc = adCmdStoredProc 
objCMD.Parameters. Refresh 
objCMD.Parameters(l).Value - p_camp(i) 
objCMD.Parameters(2). Value = ValidatePickList (p„camp_typc(i)) 
objCMD.Parameters(3). Value ~ ValidatePickList (p_camp_status(i)) 
objCMD.Parameters(4). Value = validateDate (p_camp_date_fr(i) ) 
objCMD.Parameters(5). Value = null 
objCMD.Parameters(6). Value * null 
objCMD.Parameters(7). Value * null 

objCMD.Parameters(8). Value = ValidatePickList (p_e_set_name(i)) 

objCMD.Parameters(9). Value = ValidatePickList (p - r_set_name(i) ) 
objCMD.Parameters( 10). Value = nuirValidateNumber(p_newstand_sale(i)) 
objCMD.ParamctersO I). Value » ValidateNumber(p_budgeted .grossjjetO)) 
objCMD.Parameters(12). Value = VaiidateNumber(p_budgeted_vol(i)) 

objCMD.Parameters(13). Value « Session("SOURCE_NAME") 
objCMD.Parameters(14). Value =* SessionCSRCJNDICATOR") 
objCMD.Parameters( 1 5). Value - SessionfPRODUCTJD") 
objCMD.Parameters(l6).Value = SessionfSRCCATNAME-) 
objCMD.Parameters( 17). Value = Session("GRP_NAME") 
objCMD.Parameters(l 8). Value « SessionCTITLE^NAME") 
Set TempNonSessionVar = objCMD.ExecuteO 

' IfobjCMD.Errors.Count>OThen 

Response. Write " DAMN YOU KEVIN <BR>" & objCMD.Errors.Count 

' Response.Write " errors " & objCMD.Errors.Count & P <BR>" 

* errStr = errStr & "Campaign <b> " & p__camp(0 & " not added <br>" 

* errors = true 

* end if 
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end if 
next 

if added = true then 'and errors = false then 
Response. Red irect(*'admin5a.asp") 
END IF 
%> 

<html> 
<head> 

<title>addCamp .asp</title> 
</head> 

<body bgcolQr="#99CCFF" vlink= ,, 00000(r link= a 003366"> 



<form method="post" action="addCamp.asp" name^forml id=forml> 
<table width="640" border="0" cellpaddingr^ 

<% prevSelections (4) %> 
<% if errors - true then%> 
<tr valign="top"> 
<td> 

The following Errors Occured: <br> 
<% Response. Write errStr %> 
<br> 

<a href="addCamp.asp*'> Add Campaign Names</a><br> 

<a hre£="admin5a.asp"> Return to Main Campaign Screcn</axbr> 



<% else %> 
<tr valign="top"> 

<td align="Iefr width="64(T colspan="3"ximg src^'Vgraphics/add 1 222.gif widuV="26" height="14"x/td> 
</tr> 

<tr valign="top"> 

<td align="lefV width="640" colspan="3"> 
<pxnobr> 

<img src^7graphics/blank 1 222.gif width="20" height^" 1 6"ximg src= w . ./graphics/blank I222.gif width="20" 
height^ 16"ximg src=".7graphics/blank I222.gif width="20" height^" 1 6"ximg src=\7graphics/blank 1222.gif width="2(T 
height^ 16"ximg src=".7graphics/blank I222.gif width="20* hcight="16"ximg src=".7graphics/blankI222.gir width»"20" 
hcight^-IS-ximg src=".7graphics/blank 1222.gif width="20" heights" 16"> 

<input tyr^'image" src=".7graphics/submitl222.gir width="54" height^" 1 6" border="(T alt="Submit to Database" id=nmagel 
name=imagel> 

<img src=".7graphics/blank!222.gir width="20" heights" 16-ximg src=\7graphics/blank 1222.gif width="20" 
heights" i6"xfont face=" Verdana, Arial, Helvetica, sans-serif size="-4"xa href="admin5a.asp">Return 
to Campaign</aX/fontx/nobr> </p> 
<table border="(T cellspacing="3" cellpadding='7"> 
<tr> 

<td bgcolor="003366" height="25" align="center-> . 

<div align^center'xfont face=" Verdana, Arial, Helvetica, sans-serif coIor="#FFFFFF"xbxfont size="r> 
CAMPAIGN NAME 
</fontx/bx/fontx/divX/td> 

<td bgcolor="003366" height^S" align="center"> 

<div align="ccnter"> 

<font face="Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfontsize="l"> 

CAMPAIGN START DATE 
</fontx/bx/fontx/d i vx/td> 

<td bgcolor="003366'' height="25" align^center^ 
<divaJign="centcr"> 

<font face="Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfontsize="l"> 

CAMPAIGN TYPE 
</fontx/bx/fontx/divx/td> 
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<td bgco!or="003366" heighr="25" aJign="ccnter*> 
<div align="center"> 

<font face=' Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"> 
<bxfont size="!"> 
CAMPAIGN STATUS 
</fontx/bx/fontx/divX/td> 



<%* <td bgcolor="003366" height^S* aJign="center"> 
<div aJign^"ccnter"> 
' <font face=" Verdana, AriaJ, Helvetica, sans-serif color="#FFFFFF"> 
<bxfontsize="l"> 
DATE TO 
</fontx/bx/fontx/divX/td> 

<td bgcolor="003366" height="25" width="4 1 " al ign="center"> 
' - <div align="center'*> 

<font face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF' , > 
<bxfontsize=* , r> 
AGENT CODE 
</fontx/bX/fontx/divX/td> 

<td bgcolor="003366" height="25" width="41" aiign="center"> 
' <div align="center"> 

* <font face=" Verdana, Arial, Helvetica, sans-serif coIor="#FFFFFF"> 
<bxfontsize=M"> 
AGENT DESCR 

</fontx/bx/fontx/divx/td> %> 

<td bgcolor="003366" height="25" align 5 ="center' , > 

<div align="center"> 

<font face=" Verdana. Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxf 0 nt size=T> 
EXPENSE SET 

</fontx/bX/fontx/divX/td> 

<td bgcolor="003366" height="25 n align="center"> 
<div align="center"> 

<font face=" Verdana. Arial, Helvetica, sans-serif color="#FFFFFF' , > 
<bxfont sizc=T> 
REVENUE SET 

</fonP</bx/fontx/divX/td> 
<%' <td bgcolor="003366" height="25" align^center^ 

* <div align="center"> 

* <font facc=" Verdana. Arial, Helvetica, sans-serif coIor="#FFFFFF"> 
' <bxfontsize="l"> 

NEWSSTAND SALE 
</fontx/bx/fontx/divx/td> 
%> 

<td bgcolor="003366" height="25" align="center"> 
<div align="center"> 

<font face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxf 0 ntsize="l"> 

BUDGETED GROSS % 
</fontx/bx/fontx/divx/td> 

<td bgcolor="003366" height="25- align="center"> 

<div align="center ,, > 

<font face=" Verdana, Arial, Helvetica, sans-serif coIor="#FFFFFF"> 
<bxfontsize="r> 

BUGETED VOLUME 
</fontx/bx/fontx/divx/td> 
</tr> 



<%fori = 0to4%> 
<tr> 

<td heighr^l5"align="lerr> 

<div align^leffxfont facc="Verdana, Arial, Helvetica, sans-serif co!or="#FFFFFF"xbxfont size="l" 
color= - #000000"> 
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<input typc="text" name- p_camp<%Rcsponsc. write i %>* maxlenglh="30" size-"30"> 
</fontx/bx/fontx/div> 
</td> 

<td hcight="15"align="left"> 
<div align="left"> 

<input type^'text" namc="p_camp_datc_fr<% Response. Write i %>" size="12" maxlcngth="12"> 
</div> 
</td> 

<td heights ralign^left^ 
<div aJign="left"xfont facc=" Verdana, Arial, Helvetica, sans-seriP color="#FFFFFF"> 
<bxfont size="l" color^"#000000"> 



<% strSQL = "select CAMP_TYPE_NAME from PROD CAMP_TYPE where " 

& " PRODUCT_ID=- & SessionfPRODUCTJD") 
objRST.opcn strSQL, strSQLOLEDB, adOpcnStatic, adLockOptimistic 
showQucryListBox objRST, "p_camp_tvpe" & i ,4, "SELECT TYPE", -1 
objRST.closc 

%> 



</fontx/bx/fontx/div> 
</td> 

<td height=" 1 5" aiign="lefV > 

<div aJign="left"xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxf 0 nt size="l" 
color="#000000"> 

<% strSQL = "select CAMP_STATUS_NAME from PROD_CAMP_STATUS where " _ 

& " PRODUCT_ir>" & Session("PRODUCT_ID") 
objRST.open strSQL, strSQLOLEDB, adOpcnStatic, adLockOptimistic 
showQueryListBox objRST, "p_camp_status" & i,4, "SELECT STATUS", -1 
objRST.closc 

%> 

</fontx/bX/fontx/d i v> 
</td> 

<td hcight="l5"align="left"> 
<div align="lefTxfont face=" Verdana, Arial, Helvetica, sans-scrir color="#FFFFFF"xbxfont size="l" 
color="3000000"> 

<% strSQL = "select e set_name from EXPENSE SETS where " _ 

& - PRODUCTJD=" & SessionfPRODUCTJD") 
objRST.open strSQU strSQLOLEDB, adOpcnStatic, adLockOptimistic 
showQueryListBox objRST, "P_E_SET_NAME" & i,4, "SELECT EXPENSE SET\-I 
objRST.closc %> 

</fontx/bx/fontx/div> 

</td> 

<td height="15"align="lcft"> 
<div align="lcft"xfom face="Verdana, Arial, Helvetica, sans-scrir color="#FFFFFF"xbxfont sizc="l" 
color="#000000"> 

<% strSQL = "select r_set_name from REVENUE_SETS where " _ 

& ■ PRODUCT JD=" & Session("PRODUCTJD") 
objRST.open strSQU strSQLOLEDB, adOpenStatic, adLockOptimistic 
ShowQueryListBox objRST. "p_r_SET_NAME" & i, 4, "SELECT REVENUE SET", -I 
objRST.close %> 

</fontx/bx/fontx/div> 
</td> 

<%' <td height="l5"align="left"> 
*<div aligrt =s "left"> 

' <input typc="tcxt" namc="p_newstand_sale<% Response. Write i " size=" 12" maxlcngth=" 12"> 
*</div> 
'</td> 

%> 

<td height="15"align="left"> 
<div aligrH="left"xfont facc="Verdana, Arial, Helvetica, sans-scrir color="#FFFFFF"xbxfont size="I" 
color="#000000"> 
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<input type="text" namc=*p_budgctcd_gross_pct<%Responsc. write i %>' maxlcngth="30" size="8"> 
</fonP^</bx/fontx/div> 
</td> 

<td height=M5" aJign="left"> 
<div align="lcft"xfont facc=" Verdana, Anal, Helvetica, sans-serif coior=-#FFFFFF"xb><font size=T 
co!or="#000000"> 

<input type="texT name='p_budgeted_vol<%Response. write i %>' maxlength="30" size="8"> 
</fontx/bx/fontx/div> 
</td> 

</tr> 

<% next %> 

</table> 
<p> </p> 
<%endif%> 
</td> 
</tr> 
</table> 
</form> 
</body> 
</htmI> 
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addcampstatasp 



<%@ Language= VBScript %> 

<!- # include file=".7support/gIobal_constants.asp" -> 

<!- ^include file="../support/dbConnectiorhasp" -> 

<!- ^include file=".Vsupport/adoUtils.asp" -> 

<!- #include file^.ysupport/srcTab.asp" -> 

<!- #include file=".ysupport/setupTab.asp" -> 



dim l_col_names(2) 
l_fi!c = "addCampStaLasp" 
l_col namcs(O) « "CAMPAIGN STATUS" 
l_cof narnes(l) = "DESCRIPTION" 
. l_ColumnCount = 2 

fsp_add = "sp_Add_Prod_CAMP_STATus" 
l_ Title = " Campaign Status " 
l_setupTabLink = "setupCampStatasp" 
I showPrevSclection= true 



addAccept !_CoIumnCount, ^setupTabLink, l_sp_add, Session("PRODUCT ID") 
addHeading l_fiic. IJile 

addMain IJTitle.^setupTabLink^l^showPrevSclcction.L^CoLnames , I^CoIumnCount 
add Bottom %> 



<% 
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addcamptvpe.asp 



<%@ Language^ VBScript %> 

<!- U include file=\ysupport/giobal_constants.asp" -> 

<!- #include file^ysupport/dbConnection.asp" -> 

<!- # include file^=\ysupport/adoUtiIs.asp" -> 

<!- ^include file=".ysupport/srcTab.asp" -> 

<!- U include file=".ysupport/sctupTab.asp" -> 



dim l_col_names(2) 

l_fi!c = "addCampType.asp" 

l_col names(O) = "CAMPAIGN TYPE" 

l_col_names(l) « "DESCRIPTION" 

l_ColumnCount = 2 

l_sp_add = -sp_Add_Prod_CAMP_Type" 
l_Title - " Campaign Type " 
1_setupTabLink = "setupCampT>pe.asp" 
I showPrevSelection^ true 



addAccept l_ColumnCount, l_sctupTabLink, l_sp_add. Session("PRODUCTJD") 
addHeading l_file, l_fi!e 

addMain l_Tit!eJ_setupTabLink t I_showPrevSelection ) L_Col_names , l_ColumnCount 
addBottom %> 



<% 
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addcsetasp 

<%@ Language=VBScript%> 
<!- ft include filc=\ysupport/globaJ_constants.asp" — > 
<!— ^include file="../support/dbConnection.asp" — > 
<!- U include file=".Vsupport/adoUtils.asp" -> 
<!- ^include file=".7support/srcTab.asp" -> 
<!-#include file^.ysupport/JavaScripts.asp" -> 
<!-#includc flle=^7suppo^t/PickListObj.asp ,, -> 
<% 



If RequesLFormflsLoaded") o "" then 



productjd = Session("PRODUCTJD") 
c_set_name = Request. form("c_sct_namc H ) 
print_cost = RequestformCprin^cost'') 
print_cpm_cpu = Request, formCprint^cpn^cpu") 
print_basis = Request. form("print_bas is") 
merge_purge = Request formCmergejurge") 
merge_cpm_cpu = Request.form("mcrgc_cpm_cpu") 
■mergebasis = Request form("merge_basis'') 
Itr_cost = Requestform("ltr_cost") 
ltr_cpm_cpu = Request forrnntr_cpm_cpu") 
Itrjjasis = Requestform("ltr_basis") 
postage_out_cost = rcquestform("postage_out_cost") 
postagc_out_cpm_cpu = Request formC'postage^out^cpm^pu-) 
postage_out_basis = RequestformCpostage^ut^basis") 
postage_in_cost = Request form("postage_in_cosf) 
postage_in_cpnvcpu = Rcquest.form("postage_in_cpm_cpu") 
postage_in_basis *= Request formCpostagejn^asis") 
prcmium_cost = Request form ("premium_cost") 
prcmium_cpm_cpu = Request form("premium_cpm_cpu") 
premium_basis ~ Request form("premium_basis") 
badpay_cost = Request form("badpay_cosr) 
badpay_cpm_cpu = Request form("badpay_cpm_cpu") 
badpay_basis = Request form("badpay_basis") 
billing_cost = Request form("bilIingj:ost") 
billing_cpm_cpu - Request, formfbi II ing^cpm_cpu") 
biiling_basis = Request formCbillingJjasis") 
subs_svc_costs = Request form("subs_svc i COSts") 
subs_svc_cpm_cpu = Request form("subs_svc_cpm_cpu*') 
subs_svc_basis = Request form(* , subs_svc - basis") 
exp_other_costs = Request fonn("exp_other_costs") 
cxp_other_cpm_cpu = Request form("exp_othercpm_cpu") 
cxp_other_basis = Requestform("exp_other_basis") 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_add_prod_e_sct" 
objCMD.CommandType = adCmdStoredProc 
objCMD.Pararneters.Refresh 

if not isnumeric(product_id) then 

itsporise.redirect^setupesetasp") 

else 

objCMD.Parameteis( p @productjd , ').VaJue = product Jd 
end if 

objCMD.Parameters("@e_ser name"). Value = e_set_name 
if not isnumeric(print_cost) then 

objCMD.ParameteTS^print^cosr). Value = null 

else 

.objCMD.Parametere("@printj»st").VaJue « print_cost 

end if 

objCMD.Parameters("@print_cpm_cpu'*). Value = print_cpm_cpu 
objCMD.Parameters(*@print_basis*'). Value « print J>asis 
if not isnumeric(merge_purge) then 

objCMD.Paramcters("@rncrge_purge"). Value = null 

else 

objCMD.ParameteTsC^mcrgejurge*). Value = merge_purge 

end if 
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objCMD.ParamctcrsC@mcrgc_cpm_cpu"). Value = mcrge_cpm_cpu 
objCMD.ParamctersC@mcrgc_basis"). Value - merge_basis 
ifnot(ttr_cost>" *)then 

objCMDJ'arametersCQl^cost"). Value = null 

else 

objCMD-Paramete^s("@lt^_cost ,, ). Value = ltr_cost 

end if 

objCMD.ParametersC@ltrj:pnij:pu"). Value = Itr_cpm_cpu 
objCMD.ParametcrsC@ltr„basis").yalue = ltr_basis 
if not (postage_out_cost > " ") then 

objCMDJarametcrsCQpostage^u^cost"). value = null 

else 

objCMD ^arametersCQpostage^ut^cost"). Value = postage_out_cost 

end if 

objCMD.ParametersC"@postage__out_cpm_cpu"). Value = postage_out_cpm_cpu 
objCMD.Paramete^s^@postage_out_basis , '). Value = postage_out_basis 
if not (postage_in_cost > " ") then 

objCMD.Parameters("@postageJn_cost") = null 

else 

objCMD.Parameters("@postageJn_cost"). Value = postage_in_cost 

end if 

objCMD.ParametersC@postageJnj:pmj:pu"). Value « postagc_in_cpm_cpu 
objCMD.ParameteTsr@postage_in_basis"). Value = postage_in_basis 
if not (premium_cost > " ") then 

objCMD.Parameters(*@prcmium_cost") = null 

else 

objCMD.Parameters("@premium_cost"). Value = premium_cost 

end if 

objCMD.ParametersC@prcmium_cpni_cpu"). Value ~ premium_cpm_cpu 
objCMD.ParametersT@premium_basis"). Value = premiumj>asis 
if not (badpay_cost > " ") then 

objCMD.Parameters("@badpay_cost"). value = null 

else 

objCMD.Parameter5("@badpay_cost"). Value = badpay_cost 

end if 

objCMD. Parameters* "@badpay_cpm_cpu"). Value = badpay_cpm_cpu 
objCMD.ParametersT , @badpayJ)as is"). Value - badpay_basis 
if not (billing_cost > " ") then 

objCMD.Paramcten("@billing_cost"). Value = null 

else 

objCMD.Parameters("@billing_cost"). Value = billing^cost 

end if 

objCMD.Parameters<"@billing_cpm_cpu"). Value = billing_cpm_cpu 
objCMD.Parameters4^@billin£_bas is"). Value - billing_basis 
if not (subs_svc_costs > " ") then 

objCMD.Parameters("@subs_svc_costs"). value = null 

else 

objCMD.Parameten("@subs_svc_costs"). Value = subs_svc_costs 

end if 

objCMD.Parameterer@subs_svc_q)m_cpu"). Value = subs_svc_cpm_cpu 
objCMD.Parameters('@subs_svc_bas is"). Value = subs_svc_basis 
if not (exp_other_costs > " ") then 

"objCMD.PArameters("@exp_other_costs") = null 

else 

objCMD.Parameters("@exp_other_costs"). Value = exp_other_costs 

end if 

objCMD.Paramete^s^@cxp_othe^_cpm_cpu ,, ). Value » exp_other_cpm_cpu 
objCMD.Parametere("@exp_other_bas is"). Value = exp_other_basis 

Set TempNonSessionVar = objCMD.ExecuteO 

Rcsponse.Rcdirect "sctupeseLasp" 

end if 
%> 

<html> 
<head> 

<title>AddESetasp</titIe> 
</head> 
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<script languages-JavaScript^ 
<!- 

function MM_swapImgRestorcO { //v2.0 
if (document MM_swapImgData != null) 
for (var i=0; i<(documentMM_swapImgData.Iength-I); i+=2) 
document. MM_swapImgData[i].src = document MM_swapImgData[i+l]; 

} 

function MM_preload!magesO { //v2.0 
if (document images) { 

var imgFiles = MM_preloadImagcs.arguments; 

if (document.preloadArray s =null) documentpreloadArray = new ArrayO; 
var i = document pre loadArTay. length; 

with (document) for (var j=0; j<imgFilesJength; j++) if (imgFiles[j]. char At(0) !="#"){ 
preIoadArray[i] = new Image; 
preloadArray[i++].src = imgFiles(j]; 
}> 

} 

function MM_swapImage() { //v2.0 

var i j=0,objStr,obj,swapArray=new Array,oldArray=documcnt.MM_swap!mgData; 
for (i=0; i < (MM_swapImagc.argumcnts.Iength-2); i+=3) { 
objStr = MM_swapImage.arguments[(navigator.appName = 'Netscape')? i:i+l J; 
if ((objStr jndexOfCdocumenUaycrs[')==0 && documcnt.!ayers=nu!l) |j 
(objStr.indexOfCdocumentalin =0 && documental! =null)) 
objStr « , document'^bjSu'.substring(objStr.lastIndexOfl; , . , ),objStr.length); 
obj = cval(objStr); 
, if(obj!=null){ 

s wap Array fj-H-] - obj; 

swapArrayfj++] = (oldArray=null || oldArray[j-l]!=obj)?obj.src:oldArTay[j]; 
obj.src = MM_swapImage.arguments[i+2]; 
)) 

document MM_swapImgData = swap Array; //used for restore 

) 

//-> 

</script> 

<body bgcolor^^CCFF'' vlink="000000" link="003366"> 



<form method="post" action="addESetasp" id=forml namc=formI> 
<input type^HIDDEN" name=" Is Loaded" vaJue="TRUE*> 

<TABLE BORDER=0 > 
<TR> 
<td> </td> 
<tr> 

<td colspan=5> <font face="Verdana, Anal, Helvetica, sans-serif size-"-4"> 
<a href="setupEsetasp"> </aX/font> 

<table width=" 100%" borden^O" cdlspacing="0" cellpadding="0"> 
<tr> 

<td width=" 18%" vaIign="top"ximg src=Vgraphics/add 1222.gif" width="26" height=" 14"x/td> 
<td width="82%" colspan="3"> 
<div align=*right"> </div> 
<div align="right"x/div> 
</td> 
</tr> 
<tr> 

<ld width=" 1 8%" valign="top"> </td> 
<td width="82%" colspan=-3"> 

<div align="right ,, > </div> 

<div align="right"> 
<p> 

<input type="imagc" name=SUBMIT value="SUBMrT src=\7graphics/submit 1222.gif width="54" hcight="16" 

border="0" 

a!t="Submit to Database" id=imagel> 
</p> 
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<pxfom facc="Verdana, Anal, Helvetica, sans-serir size="-4"xa href="setupEseLasp">Retum 
to Expense Set Ssajp Table </ax/fontX/p> 
</div> 
</td> 
</tr> 
</table> 
<px/p> 
</td> 
</tr> 
<tr> 

<td height^KT width=M40" align="center"> </td> 

<TD align="left" height=*lO"> </td> 

<TD height=" 10"X/td> 

<td align^RIGHT height=" 1 O w > </td> 
</tr> 
<tr> 

<td> 

Expense Set 

</td> 
<td> 

<input t>-pe="TEXT" NAME="e_set_name" value=""> 

</td> 

</tr> 
<tr> 

<td> 

Print Cost 

</td> 
<td> 

<input type="TEXT" NAME="print_cost" ¥3106=" "> 

</td> 
<td> 

<% showLOVListBox "CPM.CPU^/print^cpm^pu °/o> 

</td> 
<td> 

<input type 52 " HIDDEN" NAME="print_basis" va!ue="Mail Qty"> 
Mail Qty 

</td> 

</tr> 
<tr> 

<td> 

Merge Purge Cost 

</td> 
<td> 

<input type-TEXT" NAME= ,, nieTge_purge" vaiue=*"*> 

</td> 
<td> 

<% showLOVListBox *CPM,CPU" f "merge_cpm_cpu" f 2,-\ " %> 

</td> 
<td> 

<% showLOVListBox "Mail Qty.Merge Purge Qty Ymergc_basis , \2, ,M \ " %> 

</td> 

</tr> 

<tr> 

<td> 

Lettershop Cost 

</td> 
<td> 

<input typc="TEXT NAME="ltr_cost" value=""> 

</td> 

<td> ' 

<% showLOVListBox "CPM.CPU Vltrj:pm_cpu",2,"'\ %> 

</td> 
<td> 

<input typc="HIDDEN" NAME="ltrJ>asis" value="Mail Qty"> 
Mail Qty 

</td> 

<tr> 

<td> 
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<tr> 



</tr> 
<tr> 



</tr> 
<ir> 



</tr> 
<tr> 



</td> 
<id> 

</td> 
<ld> 

</td> 
<td> 



. <Ad> 

<td> 

</td> 
<td> 

</td> 
<td> 

</td> 
<td> 

</td> 

<td> 

</td> 
<td> 

</td> 
<td> 

</td> 
<td> 

</td> 

<td> 

</td> 
<td> 

</td> 
<td> 

</td> 
<td> 

</td> 

<td> 

</td> 
<td> 

</id> 
<td> 

</td> 
<td> 



Postage Out Cost 

<input typc="TEXT" NAME="postage_out_cost" value=""> 

<% showLOVListBox "CPM,CPUVposttge_out_cpm_cpu\2," , \ - %> 



<input type=" HIDDEN" NAME="postage_out_basis" vaIuc="Mail Qty"> 
MailQty 



Postage In Cost 

<input type=TEXT" NAME="postageJn_cost" value=""> 

<% showLOVListBox "CPM,CPUYpostageJn_cprncpu , \2,", " %> 



<input typc="HIDDEN" NAME="postageJn_basis" value="Gross Subs"> 
Gross Subs 



Premium Cost 

<input type="TEXT* NAME="premium_cost" value=**"> 

<% showLOVListBox "CPM.CPU Ypremiumj:pm_cpu",2,"", %> 

<% showLOVListBox "Gross Subs,Net Subs\" premium J>asis",2,"" t ""%> 

Bad Pay Cost . 

<input type="TEXT NAME^badpayj^st" vaIue= ,M, > 

<% showLOVListBox "CPM.CPUYbadpayjrpm^cpu"^,"", %> 



<input type="HIDDEN" NAME^badpay^basis" value=" Gross-Net Subs"> 
Gross-Net Subs 



Billing Cost 

<input typc="TEXT NAME="billing_cosf value=""> 

<% showLOVListBox XPM,CPUYbilting^cpm_cpu",2,'' , \ %> 

<input type="HlDDEN" NAME="billing_basis" value="Credit Subs"> 
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Credit Subs 

</td> 

</tr> 
<tr> 

<td> 

Sub Service Cost 

</td> 
<td> 

<input type=TEXT NAME="subs svc_costs" vaiue^"*^ 

</td> 
<td> 

<% showLOVListBox "CPM.CPUY subs svc_cpm_cpu "A"", %> 

</td> 
<td> 

<input type=" HIDDEN" NAME="subs_svc_basis" value="Net Subs"> 
Net Subs 

</td> 

<tr> 

<td> 

Exp Other Cost 

</td> 
<td> 

<input type=TEXT NAME="exp_oihcr_costs" va!uc=""> 

<td> 
<td> 

<% showLOVLisiBox "CPM.CPUYcxp otherjrpmjrpu"^,"", %> 

</td> 
<td> 

<% showLOVListBox "Mail Qty.Merge Purge,Gross Subs,Net 

SubsYexp_other_basis*,2." , \ %> 
</td> 

<Ar> 

</table> 
</td> 
</tr> 
</lable> 
</form> 
</body> 
</htmI> 
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addlistcat.asn 



<%@ Language=VBScript %> 

<!- # include file=".7support/global_consianls.asp" -> 

<!- ^include file^.ysupport/dbConnection.asp" -> 

<!- #include file=".Vsupport/adoUtils.asp" -> 

<!- tfinclude fiIe=".Vsupport/srcTab.asp" -> 

<!- # include fiIc="../support/setupTab.asp" -> 

<% 

dim l_col_names(2) 

l_file^= "addListCatasp" 

l_col names(O) = "LIST CATEGORY" 

l_col_names(l) = "DESCRIPTION" 

l_ColumnCount = 2 

1_sp_add = "sp_Add_Prod_List_Cat" 

l_Tit!c = " List Category " 

l_setupTabLink = "setup ListCat.asp" 

I showPrevSclection= false 



addAccept KTolumnCount, l_setupTabLink, l_sp_add, SessionfPRODUCTJD") 
addHeading I_file, l_filc 

addMain IJTiUeJ_setupTabLinkJ_showPrevSelectionX_Col_names , !_CoIumnCount 
add Bottom %> 
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addlistname.asp 



<%@ Language=VBScript %> 

<!— U include file-\ysupport/globaJ_constants.asp" -> 

<!— ^include file-".Vsupport/dbConnection.asp" — > 

<!— ^include file=\./support/adoUtils.asp" -> 

<!— ^include file=".Vsupport/srcTab.asp" -> 

<!- #include file="../support/setupTab.asp" -> 

<% 

dim l_col_names(2) 

l_filc = "addListName.asp* 

I col namcs(O) = "LIST NAME" 

fcofnamcs(l) = "DESCRIPTION" 

l_ColumnCount = 2 

I_sp_add = "sp_Add_Prod List Name" 
l_TitIe = " List Name" 
l_sctupTabLink = "setupListName.asp" 
I showPrevSelection= false 



addAccept !_CoIumnCount, I setupTabLinlc, l_sp_add, Session("PRODUCT_ID") 
addHeading IJile, l_file 

addMain l_Title,l_setupTabLink,l_showPrevSelcction,L_CoI_names , l_ColumnCount 
addBottom %> 
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addlistscgment.asp 



<%@ Language^ VBScript %> 

<!- ^include fllc-".7suppo^t/globaI_constants.asp , ' -> 

<!- # include file=='\./support/dbConnection.asp" -> 

<!- ^include filc=".7support/adoUtik.asp" — > 

<!- # include file=".7support/srcTab.asp" -> 

<!- ^include file=".7support/sctupTab.asp" -> 

<% 

dim l_col_names(2) 
l_file = "addListScgmentasp" 
l_col_names(0) = "LIST SEGMENT" 
I_coLnames(l) - "DESCRIPTION" 
l_Co!umnCount = 2 

l_sp_add = • , sp_Add_Prod_List_Segment" 
IJTitle = " List Segment " 
l_setupTabLink = "sctupListSegmenLasp" 
1 showPrcvSclection= false 



addAccept l_ColumnCount, I_setupTabLink, l_sp_add, Session^PRODUCTJO") 
addHcading l_filc, l_file 

addMain I JTide J_setupTabLinkJ_showPrevSelection,L_Col_names , l_Co!umnCount 
add Bottom %> 



Integrated Marketing Technology . 



9/27/00 2:22 PM 



Page 29 of 200 






IMT Subscription Marketing Reporting System 



addpancl.asp 



<%@ Language=VBScript %> 
<!- //include file="../support/gIobaJ_constants.asp" -> 
<!- # include file^Wsuppon/dbConnection.asp" -> 
<!- //include fiIe=".Vsupport/adoUtils.asp" -> 
<!- U include fiIe=\./support/srcTab.asp" -> 
<% 
1_debug = 0 
l_size = 6 

dim p_pancl(6), p_panel_t\pe(6) > p_panel_sub__type(6), p_test_type(6) 
dim p_j)anel_ofFer(6), pj)anel_offer_price(6),p _panel_pkg(6) 
dim p_panelj5remium(6X p_panel_date_start(6), p_panel_date_end(6) 
dim p_e_sct_namc(6), p_r_set_name(6) 
dim p_newstand_sale_marker(6) 

"took out the redims in hopes of better performance, knock on wood 

'redim p_j)anel(l_size) 
'redim p_panel_type{l_size) 
'redim p_panel_sub_type(l_size) 
'redim p_test_type(l_size) 
'redim p_pancl_pfler(l_size) 
'redim p_panel_ofTer_price(l_size) 
'redim p_panel_pkg(l_size) 
'redim p_panel_premium(l_size) 
'redim p_pancl_datc_stan(l_sizc) 
'redim p_panel_date_end(l_size) 
'redim p_e_set_name(l_size) 
'redim p_r_set_name(I_size) 



dim l_camp_t}pe 

dim l_camp_starus_namc 

dim l_agt_codc 

dim l_agt_dcscr 

dim l_camp_date_fr 

dim l_camp_date_to 



strSQL = "select CAMP_TYPE, CAMP_STATUS NAME, AGT_CODE, " 

& " AGT_DESCR, camp_date_fr, camp date_to, ■ _ 

& "E_SET_NAME, R SET_NAME " _ 
& " from CAMPAIGNS where " _ 
& - grp_name = " & Session("GRP NAME") & " m 
& " and PRODUCT_ID=" & Session("PRODUCrjD") & " " _ 
& " and sre cat_name = '"& SessionfSRC JOTNAME") & "'" _ 
& ■ and sourcename - !" & Session("SOURCE_NAME") & "'" _ 
& * and camp_name = *" & Scssion("CAMP_NAME") & "*" 
'& " and src_indicator « " & Session("SRC_!NDICATOR") & _ 



objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 



I camp_type = objRST.Fields(-CAMP TYPE") . 
f camp_status_name = objRST.Ficlds("CAMP_STATUS_NAME") 
fagt code = objRST.Fields(*AGT_CODE") 
fagfdescr - objRST.Fields("AGT_DESCR") 
fcamp_date fr ° objRST.Fields("CAMP_DATE_FR") 
fcamp date~to « objRST.Ficlds("CAMP_DATE_TO'') 
fe_setjiame = objRST.Fields("E_SET_NAME") 
I r_set_name = objRST.Fie!ds("R_SET_NAME") 



objRST.close 

■Response. Write "THis should work but it doesnt because I suck" 
fori«0to I size-1 



p_panel(i)-REQUEST("P PANEL" & cstr(i) ) 

pj>anel type(i) = R£QUEST("P_PANEL_TYPE" & cstr(i) ) 

p_panef sub_type<i) = REQUEST("P_PANEL SUB TYPE" & cstr(i) ) 

p test t>pe(i) = REQUEST("P_TEST TYPE" & cstr(i) ) 

'p_panel_offer(i) = REQUESTCP PANEL OFFER" & cstr(i) ) 

•pjanel^fTerjmceO) =REQUEST("P PANEL OFFER PRICE" & cstr<i) ) 

p_panel_pkg(i) = REQUEST("P PANEL_PKG" & cstr(i) ) 
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, p_panel_premium(i) = REQUEST(-P_PANEL_PR£MIUM" & cstr(i) ) 
p_panel_date_start(i) » R£QUEST("P_PANEL_DATE_START" & cstr(i) ) 
p_panel_date_end(i) = REQUEST(*P_PANEL_DATE_END" & cstr(i) ) 
p_e_sct_name(i) = REQU EST(" P_E_S ET_N AME" & cstr(i) ) 
p_r_sct_namc{i) = REQUESTfP R_SET_NAME" & cstr(i) ) 

t p_ncwstand_saic_markcr(i) = REQUEST(' , P_NEWSTAND_SALE_MARKER* , & cstr(i) ) 

' Response. Write p_camp(i) & "<br>" & p_camp_status(i) 
'Response. Write p_pancl(i)& "<br>" & p_panel_type(i) 
if p_panel(i) > " " then 

* Response. Write p_panel(i)& "<br>" & p_panel_type(i) & pjest_type(i) 

added = true t 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = •sp_Add_Panel" 
objCMD.CommandTypc = adCmdStoredProc 
objCMD. Paramctcrs.Refrcsh 
* user supplied values 

objCMD.Parameters(l ). Value = p_panel(i) 

objCMD. Parameters(2). Value = ValidatePickList (p_pancljype(i) ) 
objCMD.Parameters(3). Value = ValidatePickList (p_pancl_sub_typc(i) ) 
objCMb.Parametcrs(4). Value = ValidatePickList (p_tcst_.type(i)) 
objCMD.Parameters(5). Value » ValidatePickList (p_panel_pkg(i)) 
objCMD.Parameters(6). Value = validateDatc (p_panel_date_start(i)) 
objCMD.Parameters(7). Value = validateDatc ( p_panel_date_end(i)) 
objCMD.Parameters(8). Value = ValidatePickList (p_e_set_name(i)) 
objCMD.Parameters(9). Value « ValidatePickList (p_r_set_name(i)) 
objCMD.Paramcters( 10). Value = null* ValidatePickList (p_newstand_sale_marker(i)) 
' session supplied values 

objCMD.Paramcters(l 1). Value « Session("PRODUCTJD") 
objCMD.Paramcters(12). Value = Session("GRP_NAME") 
objC^.Pa^eiere(13ivalue = Ses5ion(TTTLE NAME") 
objCMD.Parameters( 14). Value = Session("SRCj:AT_NAME") 
objCMD.Parameters(15).Value = Ses$ion("SOURCE_NAME") 
objCMD.Parameters(l6).Value = SessionCSRCJNDlCATOR") 
objCMD.Paramcters(1 7). Value = ScssionfCAMP.NAME") 

' query supplied values 
objCMD. Parameters( 18). Value = l_camp_typc 
objCMD.Paramcters( 19). Value = I_camp_status_name 
objCMD. Parameters(20). Value » I_agt_code 
objCMD. Parameters(2 1 ). Value = l_agt_descr 
objCMD. Parameters(22). Value - l_camp_date_fr 
objCMD. Parameters(23). Value = l_camp_date_to 

Set TempNonSessionVar = objCMD.ExecuteO 

end if 
next 

if added = true then 

Response. Redirect "ADMIN6A.ASP" 

end if 

• added April 6, 2000. 

' convert Queries to LOVs to avoid running queries more than once 

dim PanelTypeLOV, PanelSubTypeLOV, PanelTestTypeLOV 
dim PackageLOV, ExpenseSetLOV, RevenueSctLOV 

PanelTypeLOV = QueryToLOVfselect PANEL TYPE NAME from CORP PANEL TYPE") 
PanelSubTypeLOV = QueryToLOV(-select PANEL SUB_TYPE NAME from CORP PANEL SUB TYPE") 
PanelTestTypeLOV = QueryToLOV("select PANEL TEST TYPE NAME from CORP PANEL TESTTYPE" ) 
PackageLOV - QueryToLOVfselect PACKAGE NAME from PROD_PANEL PACKAGE " 

& "WHERE PRoduct_id =•& Session(-PRODUCTJD-) ) 
ExpenseSctLOV = QueryToLOV("seIect e_set name from EXPENSE_SETS where " _ 

PRODUCT_lI>" & SessionCPRODUCTJD") ) 
RevenueSetLOV = QueryToLOV(-select r set name from REVENUE_SETS where " 

&• PRODUCT JD=- & SessronfPRODUCTJD") ) 
*we need the default revenue and expense sets from the campaign level 
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%> 



<html> 
<hcad> 

<tiile>AddPanel.asp</tii]c> 
</head> 

<body bgco!or="#99CCFr vlink^OOOOOO" link=-003366"> 
<form method="post" aciion="addPancl.asp" name=formI id^orm 1 > 
<tablc width="640" bordcr="<T ccllpadding~"2"> 

<% 

if l_debug=l then 

Response, write "l_e_set_name " & l_e_set__name 
Response. Write "<BR>" 

Response. write "l_r_set_name " & I_r_set_name 
Response. Write "<BR>* 

Response. write "PanelTypeLOV " & PanelTypeLOV 
Response. Write "<BR>" 

Response. write "PanelSubTypeLOV " & PaneiSubTypeLOV 
Response. Write "<BR>" 

Response. write "PanelTesiT>peLOV " & PanelTestTypeLOV 
Response. Write "<BR>" 

Response. write "PackageLOV " & PackageLOV 
Response. Write "<BR>' 

Response. write "ExpenscSetLOV " & ExpenseSetLOV 
Response. Write "<BR>" 

Response. write "RevenueSctLOV " & RevenueSctLOV 
Response. Write *<BR>" 
end if 
%> 
<% 

prevSelections (5) %> 
<% if errors = true then %> 
<tr valign="top"> 
<td> 

The following Errors Occured: <br> 
<% Response. Write errStr %> ■ 
<br> 

<a href="addCamp.asp"> Add Campaign Names</axbr> 

<a href s ="admin5a.asp*> Return to Main Campaign Screen</axbr> 



<% else 

dim l_marker_vals 



<tr vaIign =,, top"> 

<td aJign="left" widuv="640" colspan^"3"ximg src=".7graphics/addl222.gir width«"26" height="14"x/td> 
</tr> 

<tr va!ign="top"> 
<td align="left" width="640" colspan="3"> 
<pxnobr> 

<img src=".7graphics/blankI222.gir width="20" heights" 1 6"><img src=".Vgraphics/blankl222.gir width="20" 
height="16-ximgsrc=".ygraphics/biankl222.gir width="20" height="16"ximg src^".ygraphics/blankl222.gir width^-20" 
height="!6"ximgsrc=".ygraphics/blankl222.gir width="20" height^ 16"><img src~".ygraphics/blank 1222.gif width="20" 
height^Me^imgs^'.ygraphics/blank 1222.gif width="20" height"*" 16"> 

<input type^" image" src= w .7graphics/submitl 222.gif width-"54" hcight= w 16" border="0" alt="Submit to Database" id=imagel 
name=imagel> 

<img src=".7graphics/blankI222.gir width="20" height=M6"xjmg src=\ygraphics/blank 1222.gif width="20" 
height^" 1 6"xfont facc=" Verdana, Anal, Helvetica, sans-serif* size="-4"> 
<a href="admin6a.asp"> 
Return to Panel</ax/fontx/nobr> </p> 



l_marker_vals = "Y,N" 



%> 
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<table border="0" cellspacing="3" cellpadding="2"> 
<tr> 

<td bgcolor="003366" height^" align="ccnter"> 

<div align="ccntcr"xfont face=" Verdana, Arial, Helvetica, sans-serif colon="#FFFFFF"xbxfon{ size="l"> 
PANEL NAME 

</fonP</bX/fonP</divX/td> 

<td bgcolor="003366" height^S" align="center ,, > 
<div align="center"> 

<font face=" Verdana, Arial, Helvetica, sans-serir co!or="#FFFFFF"> 
<bxfontsize="l"> 

PANEL START DATE 
</fontx/bx/fontx/divX/td> 

<td bgcolor="003366" height="25" align="center"> 
<div align="center"> 

<font face=*Verdana, Arial, Helvetica, sans-serir colop="#FFFFFF"> 
<bxfontsize="r> 

PANEL TYPE 
</fontx/bx/fontx/divx/td> 

<td bgcolor="003366" height="25" align="ccnter"> 
<div align="center , '> 

<font face=" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"> 
<bxfontsize="l"> 

PANEL SUBTYPE 
</fontx/bx/f 0 ntxydivx/td> 

<td bgcotor="003366" height="25" align^center^ 
<div align="ccnter"> 

<font face* 3 " Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"> 
<bxfontsize="I"> 

PANEL TEST TYPE 
</fontx/bx/fontxydivxytd> 

<td bgcolor="003366" height="25" align="centcr"> 
<div align="center"> 

<font face=" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"> 
<bxfontsize="I"> 

PACKAGE 
</fontx/bx/fontx/divx/td> 

<td bgcolor="003366'' heights" align="center"> 
<div align="center"> 

<font face=" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"> 
<bxfont size="l"> 
EXPENSE SET 

</fontxybx/fontx/divx/td> 

<td bgcolor="003366" height="25" align="center"> 
<div align="ccnter"> 

<font face="Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"> 
<bxfontsize="I"> 
REVENUE SET 

</fontx/bx/fontx/divx/td> 

<%' <td bgcolor="003366" height="25" align="center"> 

'<div align="center"> 

'<font face="Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"> 

'^xfontsize^l^ 

1 NEWSSTAND MARKER 

' </fontx/bx/fontx/divx/td> 

'</tr> 

%> 



<% for i = 0 to l_size - 1 %> 
<tr> 
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<td hcight="l5- align="lcft-> 
<div a!ign="lcft"xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFFxbxfont s ize="l" 
color="#000000"> 

<input type="text" name- P_P AN EL<%Response. write i %>' maxlength="250" size="30"> 
</fontx/bx/fontx/div> 
</td> 

<td height="15"aiign^"left"> 
<div align="lefV> 

<input type="text" name=" P_PAN E L_DATE_START<% Response. Write i %>" size="i2" maxlcngth="12"> 

</div> 
</td> 

<td height="l5"aiign="left"> 

<div align="icft"xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfont size="P color="#000000"> 



<% 'strSQL = "select PANEL_TYPE_NAME from CORP_PANEL_TYPE" 

'objRST.opcn strSQU strSQLOLEDB, adOpenStatic, adLockOptimistic 
showLOVListBox PanetTypeLOV, "P_PANEL_TYPE" & i ,4, "SELECT TYPE", -1 
'objRST.close 

%> 



</fontx/bx/fontx/div> 
</td> 

<td height="15"aJign="left"> 
<div align="lefVxfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"x D xfont size="l" 
color="#000000-> 

<% ' strSQL = "select PANEL_SUB_TYPE_NAME from CORPPANEL_SUB_TYPE" * 

'objRST.opcn strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showLOVListBox PanelSubTypeLOV, "PJ>ANEL_SUB_TYPE" & i f 4, "SELECT 

SUBTYPE", -1 

showQueryListBox objRST, "P_PANEL_SUBJTYPE" & i,4, "SELECT SUBTYPE", - 

I 

'objRST.close 

%> 

</fontx/bx/fontx/div> 
</td> 

<td height="l5" align="left"> 

<div align="left"xfont face=" Verdana, Arial, Helvetica, sans-serif coIor="#FFFFFF"xbxfont size="l" 
color="#00000(T> 

<% ' strSQL = "select PANEL_TEST_TYPE_NAME from CORP_PANEL_TEST_TYPE" 

* ~ objRST.opcn strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showLOVListBox PandTcstTypeLOV, "P_TEST_TYPE" & i,4, "SELECT TEST 

TYPE". -1 

'objRST.close 

%> 

</fontx/bx/fontx/div> 
</td> 

<td hcight="I5"aJign="lcft"> 
<div align="left"> 

<% 'strSQL = "select PACKAGE NAME from PROD_PANEL_PACKAGE WHERE PRoductJd & 
Session("PRODUCTJD") " 

'objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showLOVListBox PackageLOV, "P._PANEL_PKG" & i,4, "SELECT PACKAGE", -1 
'objRST.close 

%> 



</div> 
</td> 

<td height-" 1 5" aJign="left"> 
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<div aiign="lcft"xfont face=" Verdana, Aria!, Helvetica, sans-serif" co!or="#FFFFFF"xbxfont sizc="l" 
color^tfOOOOOO 

<% 'strSQL = "select e_set_name from EXPENSE_SETS where " _ 

'& • PRODUCT_ID=- & SessionfTRODUCTJD") 

* objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showLOVLislBox expenseSetLOV, "P_E_SET_NAME" & i,6, "SELECT EXPENSE 

SET" f l_e_Set_name 

'objRST.dose %> 

</fontx/bX/fontx/div> 

<hd> 



<td height" 1 5" align=*Ieft"> 
<div a!ign="left"xfont face=" Verdana, Arial, Helvetica, sans-serir coIor="#FFFFFF"xbxfont size="r 
color="#000000"> 

<%' strSQL = "select r_set_name from REVENUE_SETS where " 

& " PRODUCTJD=" & Session("PRODUCT_ID-) 
'objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showLOVLislBox RevenueSetLOV, "p_r_SET_NAME" & i,6, "SELECT REVENUE 

SET\l_r set_name 

•objRST.dose %> 

</fontx/bx/fontx/div> 
</td> 

<% *<TD align="left"> 

'showLOVLislBox l_marker_va!s, " P__N E WSTAN D_S ALE_MARKER" & i , 6, " — \l_newstand_saJc_marker 



</td> 

%> 

</tr> 

<% next %> 



</table> 
<p> </p> 
<%end if%> 
</td> 
</tr>. 
</table> 
</form> 
</body> 
</html> 
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addoanelpackage.asp 



<%@ Language=VBScript %> 
<!- #include fiIe=".Vsupport/global_constants.asp" -> 
<!- # include fiIe=\ysupport/dbConnection.asp" -> 
<!- #includc file=*\Vsupport/adoUtiIs.asp" -> 
<!- ^include file=\./support/srcTab.asp" -> 
<!- ^include filc=*.7support/sctupTab.asp" -> 



dim l_col_names(2) 
I file = "addPanelPackage.asp" 
fcol_names(0) = "PANEL PACKAGE" 
l_col_names(l) = "DESCRIPTION" 
l_ColumnCount = 2 

l_sp_add = * , sp_Add_Prod_panel_Package" 
l_Titlc = " Panel Package" 
l_setupTabLink = "setupPanelPackage.asp" 
l_showPrcvSelection= false 
l_file = "addPanelPackage.asp" 



addAccept !_ColumnCount, l_setupTabLink, I sp add, SEssion("PRODUCT_ID") 
addHeading I Jile, I Jile 

addMain l_TitleJ_setupTabLink,l_showPrevSelection,L_Col_names , l_ColumnCount 

addBottom 

%> 



<% 
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addpanelsubtvpc.asp 



<%@ Language= VBScript %> 

<!- # include fil^.ysupport/globa^constants.asp'' -> 

<!- U include file=\./support/dbConnection.asp" -> 

<!- # include file=\Vsupport/adoUtils.asp" -> 

<!- # include file^Wsupport/srcTab.asp" -> 

<!- U include file="../support/setupTab.asp" -> 

<% 

dim l_col_names(2) 

l_filc^ "addPanelSubType.asp" 

l_col names(O) = "PANEL SUB TYPE" 

l_coI_names(l) = "DESCRIPTION" 

l_ColumnCount = 2 

l_sp_add = "sp Add_Corp_Paxiel_Sub_Type" 
tTiUe = " Panel Sub Type " 
l_setupTabLink = "setup PanelSubType.asp" 
I showPrevSelection= false 



addAccept I ColumnCount, I setupTabLink, I sp add, - I 
addHeadingljile, IJile 

addMain ^Title.l^setupTabLink.^showPrevSelection^L^Co^names , l_ColumnCount 
addBottom %> 
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addpaneltesttvpcasp 



<%@ Language^ VBScript %> 
<!— ^include filc=".7support/global_constants.asp" — > 
<!- #includc file=\ysupport/dbConncction.asp" -> 
<!- Sinclude ftle=\-/support/adoUtils.asp" — > 
<!- ^include filc=".7support/srcTab.asp'* -> 
<!— #includc fiIe=\ysupport/sctupTab.asp" -> 



dim l_col_names(2) 
Mile « "addPanelTestType.asp* 
fcol_names(0) = "PANEL TEST TYPE" 
lj»I_names(l) = "DESCRIPTION" 
l_ColumnCount - 2 

!_sp_add = "sp_Add_Corp_Pancl_Tcst_Typc" 
I JTitle = " Panel Test Type " 
l_sctupTabLink = "setup PancITestType.asp" 
1 showPrevSelection= false 



addAccept !_ColumnCount, l_setupTabLink, l_sp_add, - I 
addHeading l_file, l_fi!e 

addMain I_TitIe,l_sctupTabLink t l_showPrevScIection > L_Co!_names , I^CoIumnCount 
add Bottom %> - 



<% 
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addpancltypcasp 



<%@ Language^ VBScript %> 
<!— # include file=\y$upport/global_constants.asp" - 
<!-#include file?=\ysupport/dbConnection.asp" — > 
<!- ^include file=\ysupport/adoUtils.asp" -> 
<!- # include fiIe=\./support/srcTab.asp" -> 
<!— # include fiIe=".ysupport/setupTab.asp" — > 
. <% 

dim l_coI_names(2) 
I file = "addPanelType.asp" 
fcol_names(0) = "PANEL TYPE" 
l_col_names(l) = "DESCRIPTION" 
l_ColumnCount = 2 

l_sp_add = "s p_ A d d_Corp_Pane l_Typc " 
l_Titic = " Panel Type " 
I_setupTabLink - "setupPancIType.asp" 
I showPrevSelection= false 



addAccept l_ColumnCount, l_setupTabLink, l_sp_add, -1 
addHeading l_file, l_filc 

addMain I_TiUc,l_setupTabLink > l_showPrevSelection,L_CoI_names , !_CoIumnCount 
add Bottom %> 
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addpriorsrcdesc.asp 



<%@ Unguagc= VBScript %> 

<!- ^include file=\ysupr^rt/global_constants.asp" -> 

<!- ^include rilc=".7support/dbConnection.asp" -> 

<!- # include file="../support/adoUtils.asp" -> 

<!- # include fiIe=\./support/srcTab.asp" — > 

<!— ^include file=\./support/setupTab.asp" -> 

<!- ^include file=".ysuprjort/libCommon.asp" -> 



dim l_col_names(8) 

I file = "addPriorSrcDcsc.asp" 

fcol_names(0) = "PRIOR SOURCE IDENTIFIER" 

I col names(I) = "RENEWALS PRIOR SOURCE DESC 

I col names(2) = "BILLING CURRENT SOURCE DESC 

l_col_names(3) = "MODEL SOURCE CATEGORY" 

l_coi names(4) - "MODEL SOURCE" 

l_cofnames(5) = "AGENT SOURCE" 

l_col_namcs(6) = "VALID FROM DATE" 

l_col_names(7) = " VAUD TO DATE" 

l_Co!umnCount = 8 

l_sp_add = "sp_Add_prior_Source_desc" 
1 — Title « "Prior Source Description" 
l_setupTabUnk = "setupPriorSrcDesc.asp" 
l_showPrevSeIection= true 

addAccept l_ColumnCount, I setupTabLink, l_sp_add, Session("PRODUCT ID") 
addHeading I Jile, Mile 

'addMain Mitle.MetupTabLinkJ^columncount, "", l_col_names, control_type, controL_arg I , controL_arg2, 
controI_arg3,showPrevSeIection 

addMain l_TitIe,l_setupTabLink,I_showPrevSelection, l_col_namcs , l_ColumnCount 

addBottom 
%> 



<% 
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addrsctasp 



<%@ Language=VBScript %> 

<!- U include file="../support/global_constants.asp" -> 

<!- ^include file=".ysupport/dbConnection.asp" -> 

<!- #include file="../support/adoUtils.asp" -> 

<!- U include file="../support/srcTab.asp* -> 

<!- # include fiIe=".ysupport/pickListObj.asp" -> 

<!- ^include file=".ysupport/JavaScripts.asp" -> 



<% 

'Response. Write "Action " & "<br>" 
dim DEBUG 
DEBUG = false 

dimlJabcl(lO) 

dim l_vaiues(33) 

'dim l_basis_opt<10X7) 

IJabel(O) = "Sub Revenue" 
l_label(l) = "Ad Revenue" 
Mabct(2) = "List Rental Revenue" 
MabelQ) = "Other Revenue" 



If RequesLFo^m("SUBMrT.x' , ) o "" then 
1 action = "SUBMIT" 



l_r_set_namc = Request. Form("P_r_SET_N AM E") • 
if l_/_set_name > " " then 

objCMD.ActiveConnection = strSQLOLEDB 

objCMD.CommandText = "sp_add_prod_r_set" 

objCMD.CommandType = adCmdStoredProc 

objCMD. Parameters. Refresh 
USER SUPPLIED 

objCMD.Parameters(l). Value - Session("PRODUCT_ID") 

objCMD.Paramctcrs(2). Value =l_r_sct_name 

fork = 0 to 7 

IF DEBUG = TRUE THEN * 

Response. Write (k +3) & " " & k & " " & I vaIues(K) & "<br>" 
END IF 

ifk mod 2 = 0 then 

objCMD.Parameters(k + 3).VaIue « validatcNumbcr(l values(k)) 
else 

objCMD.Parameters(k + 3).Value = validatePickList(I_values(k)) 



end if 

' Response. Write k + 3 & " ~ " & l_values(k) & "<br>" 
next 

Set TempNonSessionVar = objCMD.ExecuteQ 



end if 

Response. Redirect "setupRsetasp" • 
Else 

Inaction = "New" 
end if 



else 

I action -"x" 



end if 

'Response. Write "Action " & l_action & "<br>" 
if L_action = "SUBMIT" then 



* response. write "<BR>Add envoked<BR>" 
fori = 0to 7 



l_values(i) = Request. Form("PJ & i ) 



next 
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•Response. Write "Hale " & faction 
%> 

<HTMLxHEADxtille> 

addRseLasp 

</title> 

<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> 
</HEAD> 

<script language="JavaScript , '> 
<!- 

function MM_swapImgRestoreO { //v2.0 
if (document MM_swapImgData != null) 
for (var i=0; i<(documentMM_swapImgE>ata.length-l); i+=2) 
documentMM_swapImgData[i].src ~ documentMM swaplmgData[i+l]; 

> 

function MM_pre!oadImages() { //v2.0 
if (document images) { 

var imgFiles = MM_preloadImages.arguments; 

if (documcnLpreloadArray=null) document.preloadArray = new Array 0; 
var i ** document preloadArray. length; 

with (document) for (var j=0; j<imgFi!es.length; j++) if (imgFiles[j].charAt(0) !="#"){ 
preloadArray [i] = new Image; 
preloadArray[r++].src = imgFiles [j]; 
>} 

} 

function MM_swapImageO { //v2.0 

var i j=0,objStr,obj t swapArTay=new Array,oldArTay=documentMM_swapImgDala; 
for (i=0; i < (MM_swapImage.arguments.length-2); i+=3) { 
objStr ° MM_swapImage.argumcnts[(navigator.appName = # Netscape')?i:i+l ); 
if ((objStr.indexOfTdocumentlayers[')==0 && document layers*=nul I) || 
(objStr.indexOiX'document.alin =0 && documcntall ^^ull)) 
objStr = 'document^bjSu.substring^bjStr.lastlndexOfT.O.objStr.length); 
obj » eval(objStr); 
if(obj!= null){ 
swapArray[j++] =obj; 

swapArray[j++] = (oIdArray=null ]| oldAn-ay[j-!]!=obj)?obj.src:oldArTay[j]; 
obj.src = MM_swapImage.arguments[i+2]; 

>} 

documentMM_swapImgData = swap Array; //used for restore 

} 

//-> 

</script> 

<body bgcolor="#99CCFF" vlink="000000" Iink="003366"> 



<form method="post" action="addRSelasp" id=formI name=forml> 
<table widuV="320" border="<r> 
<tr> 

<td colspan="3"> 

<table width=M0O%" border="0" cellspacing^O" cellpadding="0"> 
<tr> 

<td width°"25% a valign="top"ximgsrc=".7graphics/addl222.gir width= B 26" height=-14"x/td> 
<td width s "75%" colspan="3" valign="top"> 
<div align= - right"x/div> 
<div align="right"x/div> 
</td> 
</tr> 
<tr> 

<td width="25%" valign="top"> </td> 
<td width="75%" colspan="3" valign= f, top"> 

<div align s *right <> > </div> 

<div align="right , '> 
<p> 

<input type^image' name="SUBMrr vaIue="SUBMIT src=".7graphics/submit 1222.gif width= - 54" height^'ie" 

borde^-O" 
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alt="Submit to Database" id=imagel> 
</p> 

<p> <font face 3- Verdana, Aria!, Helvetica, sans-serif* size="-4'*xa href^setupRseLasp^Retum 
to Revenue Set Setup TabIe</ax/font> </p> 
</div> 
</td> 
</tr> 
</tabIe> 
</td> 
</tr> 
<tr> 

<td height^lO" align^center" width="150"> </td> 

<td height^ 10* colspan="2"> </td> 
</tr> 
<tr> 

<td height="20" bgco1or="003366" align="center" width="150"xfont face=" Verdana, Arial, Helvetica, sans-serif* 
color="#FFFFFF w xbxfont size=" I ">Revenue 
. Set </fontx/bx/f 0 ntxAd> 
<td height="20" colspan="2"> 
<input type="TEXT" name='p_r_set_namc' 

id=0 vaiue=" size="27 ,, > 

</td> 
</tr> 

<% for i=0 to 3 %> 
<tr> 

<td height="20" bgcolor="003366" align="center" width="i50"xfont face=" Verdana, Arial, Helvetica, sans-serif 
color="#FFFFFF"xbxfont size=" 1 m > 
<% 

Response. Write I label(i) 
%> 

</fontx/bx/fontx/td> 
<% 

forj =0to 1 
in_cnt = i • 2 +j 
%> 

<td height="20"> 

<% if j = 1 then %> 
<select n am c='P_<%Response. write in_cnt %>'> 

<% if l_values(in_cnt) = "CPM" then %> 

<0PTION value=0>CPM or CPU 
<OPTION value ='CPM'selected>CPM</option> 
<OPT10N value ^CPIT >CPU</option> 
<% elscif l_vaiues(in_cnt) = "CPU" then %> 

<OPTION vaJue=0>CPM or CPU 

OPTION value ='CPM*>CPM</option> 
OPTION value ^CPLT seIected>CPU</option> 
<% else %> 

<OPTION vaIue=0>CPM or CPU 
OPTION value = , CPM*>CPM</option> 
<OPTION value = , CPU>CPU</option> 

<% END IF %> 
</Select> 

<% elseif j = 2 then %> 
<% else %> 

<input type=TEXT name='P_<%Response. write in_cnt %>' size=" 1 2" maxlength=" 1 2"> 
</td> 
<%endif%> 

<% next %> 

</tr> 

<% next %> 
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</table> 

<p> </p> 
</form> 
</BODY> 
</HTML> 
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addsourcc.asp 



<%@ Language=VBScript %> 
<!- ^include file=\./support/globaI_constants.asp" -> 
<!- U include file= w .7support/dbConnection.asp'' -> 
<!-#include filc=".ysuppon/adoUti!s.asp" -> 
<!- U include file="../support/srcTab.asp" -> 



<% 

on error resume next 
dim p_source(4) 
dim p_src_ind(4) 
added = false 
errors = false 
for i = 0 to 4 

p_source(i) = REQUESTS p_source" & cstr(i) ) 
p_src_ind(i) = REQUEST("p_src_ind- & cstr(i) ) 
1 Response. Write p_sourcc(i) & p_src_ind(i) 
if p_source(i) > " " and p_src_ind(i) > " * then 
added = true 

objCMD.ActiveConnection = strSQLOLEDB 

objCMD.CommandTcxt = "sp_add_source" 

objCMD.CommandType = adCmdStoredProc 

objCMD. Parameters. Refresh 

objCMD.Parameters(l). Value = p_source(i) 

objCMD.Parameters(2). Value = p_src_ind(i) 

objCMD.Parameters(3). Value = cint(SessionfPRODUCTJD")) 

objCMD.Parameters(4). Value = Session("SRC_CAT_NAME") 

objCMD.Parameters(5). Value = Session("GRP_NAME") 

objCMD.Parameters(6). Value = Session(nTTLE_NAiME") 
Set TempNonSessionVar = objCMD.ExecuteO 
end if 



%> 

<html> 
<hcad> 

<tiilc>IMT Network</titlc> 
</head> 

<body bgcolor^'fl^CCEF'* vlink="000000" link="003366"> 



<form method^post" action^addSourcc.asp" name=forml id=forml> 
<table width="640" border="0" cellpadding="2"> 

<% prevSclections (3) %> 



<tr valign="top ,, > 

<td align^Ieft" width="640" colspan="3"ximg src=*.Vgraphics/add 1222.gif width="26 w height=M4 ,, x/td> 
</tr> 

<tr valign="top"> 

<td align="left" width="640" coIspan="3"> 
<pxnobr> 

<img src=".7graphics/blankl222.gir width="20" height=''16 ,, ><img src=".7graphics/blankl222.gir width="20" 
height^ie-ximg src=^graphics/blank 1 222.gif" width="20" heighl=M6"ximg src=".7graphics/blank 1222.gif width="2CT 
height="I6"ximg src=".7graphics/blankl222.gir width="20" hcight="16"ximg src=\Vgraphics/blankl222.gir width="20" 
height="16"ximg src=\ygraphics/blankI222.gir width="20" height="16"> 



next 



if added - true then 

Response. Redirect ("admin4a.asp" ) 
end if 
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<input type="image" src=\7graphics/submit 1222.gif widlh="54* hcight="16" border="<T ait="Submit to Database"> 
<img src=V/graphics/blankl222.giP widlh="20" hcight="16"ximg src=rVgraphics/blank 1222.gif width="20" " 
hcight="16"xfont face=" Verdana, Arial, Helvetica, sans-serif size="-4"xa hre£="admin4a.asp"> Return 
to Source</ax/fontx/nobr> </p> 

<table width=*265" border="0" cellspacing^" ceUpadding="2-> 
<tr> 

<td bgcolor="003366" height="25" width="l66" align="center"> 
<div align="center"xf 0 nt face=** Verdana, Arial, Helvetica, sans-serif cotor="#FFFFFF"xbxf 0 nt size="l">SOURCE 
NAME </fontx/bx/fontx/div> 
</td> 

<td bgcolor="003366'' height="25" width="41" align="center"> 
<div align="center"xfont face="Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont 
size="l">SOURCE<br> 

INDICATOR </fontx/bx/fontx/div> 
</td> 
</tr> 

<% for i = 0 to 4 %> 
<tr> 

<td width="l66" height="15" align="!eft"> 
<div align="lerVxfont face="Verdana, Arial, Helvetica, sans-serir coior="#FFFFFF"xbxfontsize=*M" 
color="#000000"> 
<% 

strSQL = "select U_SOURCE_NAME FROM Source_descriptions " 
objRST.open strSQU strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, T_SOURCE" & i,4, "SELECT SOURCE", -I 
objRST.close 



</fontx/bx/fontx/div> 
</td> 

<td width="4P height="15" align*"left"> 
<div align="lefV> 

<input type="tcxt" name="p_src_ind<% Response. Write i %>" size="I(T maxlength-"IO"> 
</div> 
</td> 
</tr> 

<% next %> 

</table> 
<p> </p> 

</td> 
</tr> 
</table> 
</form> 
</body> 
</html> 



%> 
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addsourcenamc.asp 



<%@ Languagc=VBScript %> 

<!-#include filc=".7support/g!obal_constants.asp" -> 

<!- #include fiie=^7support/dbConncction.asp , ' -> 

<!- Sinclude n^rysupport/adoUtils.asp" -> 

<!- ^include file= - .Vsuppori/srcTab.asp" -> 

<!- # include fi!c=".7support/setupTab.asp" -> 

<% 

dim l_co1_names(2) 
l_file = ■addSourceName.asp" 
l_col_names(0) = "SOURCE" 
l_col_names(l) = "DESCRIPTION" 
l_Co!umnCount = 2 

l_sp_add = "sp_Add_Source_Description" 
l_Tit!c = "Source Description " 
l_setupTabLink = "setupSourceName.asp" 
I showPrcvSelection= false 



addAccept I_ColumnCount, l^setupTabLink, l_sp_add, -1 
addHeading !_filc, l_file 

addMain l_TitieJ_setupTabLink,l_showPrevSelection,L_Col_names , !_CoIumnCount 
addBottom %> 
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adminla.asp 



<%@ Language= VBScript %> 

<!- # include filc=".ysupport/global_constants.asp" -> 
<!- # include file=*\7support/dbConnection.asp" -> 
<!- ^include fiIe="../support/adoUtils.asp" -> 
<!- ^include file="../support/srcTab.asp" -> 

<% 

Msg= RequestQueryStringCMSG") 

if not sessionCPID.PHRASE-^- ■ then 

Response.Rcdirect(7welcome.asp") 
end if 

I_this_file = "admin la.asp" 

if (Request Fonn("display")="2'* _ 

and RequestFormCsctupTab^o "0" _ 
and Request. Form("sctupTab") > " ") then 
Response.Redirect(Request.Form("setupTab*')) 
end if 

dim tmp 

tmp = Request.Form("cmb") 

•RequesLFormfcmb") 

IF tmp o "0" and tmp > ' " THEN 

sessionf GRP^NAME") = tmp 

Responsc.RedirectCadmin2a.asp'*) 
end if 
%> 



<html> 
<head> 

<title> Admin 1 a.asp</title> 
</head> 

<body bgcolor="#99CCFF" vlink^OOOOOO" linlc="003366' , > 
<form method="posf action="<%Response.Write l_this_file %>" id^forntf" name="form2 ,, > 

<table width="640" border="0" cellpadding= ,, 2"> 
<tr valign="top"> 



<td width="65"> 

<% '<a href^"adminSearch.asp' , > 

*<img STC=".7graphics/fastfind.gir width^e* height="30" border="0"X/a> %> 
</td> 

<td width="425"> 

<p> <font color^black" size="-l" face=" Verdana, Arial, Helvetica, sans-serif co!or=black> 

<% if Msg = "YES" then %> 

You have been redirected to this page because <br> 

the session variables needed to perform the action<br> you requested have expired.<br> 

Please select the values again.<br> 

</font> 

<% end if %> 

<img src=".7graphics/drilldownl227.gir width="47" height="l l"xbr> 



strSQL = "select distinct GRP.NAME from CORPJNFO WHERE " & SESSIONCPID.PHRASE - ) 
* Response. Write strSQL & "<BR>" 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 



<% 
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showQueryListBox objRST, "cmb\5. "SELECT PRODUCT GROUP"," " 

objRST.closc 

%> 

<input typc="IMAGE" name="go" valuc="go" src=".Vgraphics/go 1222.gif WIDTH="33" HEIGHT="16" border=0> 
</p> 



</td> 

</form> 
</tr> 

<tr va!ign="top"> 
<td width="640" colspan="3"> 
<p> </p> 

</td> 
</lr> 
</tab!e> 
</form> 
</body> 
</html> 
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admin2a.asp 



<%@ Language=VBScript %> 

<!- # include file=".Vsuppori/global_constants.asp" -> 
<!-#include file=".ysupport/dbConnection.asp" -> 
<!— ^include file="../support/adoutils.asp" -> 
<!— U include file="../support/srcTab.asp" -> 
<% 

Session("USR_ACCESS") = "NONE" 
l_firom = Request("FR") 
ifnot(I_from >"")then 

checkSessionVars(l) 
end if 

l_this_file = "admin2a.asp" 

if(RequestForm("dispIay")="2" _ 

and Request Form("setupTab")o "0" _ 
and Request Form("setupTab") > " ") then 
Response. Red irect(RequestForm("setupTab")) 



dim tmp 

imp = RequestForm("cmb") 

'response. write ("<br>Product: " & tmp & "<br>") 

'Response. Write tmp & " this don't work" 

IF tmp o "0" and tmp > " " and Request. FormCfrom") = "0" THEN 
session("PRODUCT_ID") = tmp 

strSQL = "select TTTLE_NAME from CORPJNFO where grpjiame^" & SESSION("GRP_NAME") _ 
& "' and Product_id=" & tmp 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

scssion(-nTLE_NAME-) = objRST.Ficlds(0).Value 

objRSTxIose 

'session("TITLE_NAME") = 

check_security 
Response.Redirect("admin3a.asp") 
else 

if Request FormCfrom") > " " then 
l_from - Request Form(" from") 
end if 

IF tmp o "0" and tmp > " " then 
session("PRODUCT ID") = tmp 

strSQL = "select TITLE_NAME, GRP_NAME from CORP_INFO where" _ 
& " Product_id=" & tmp 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

session(TITLE_NAME-) « objRST.Fields(O). Value 
sessionfGRP_NAME") = objRST.Fields(l).Value 

Response.Redirect(l_from) 
objRST.close 



end if 

ifnotlJrom>""then 
Session("refer_page") = "admin2a.asp" 
Session("refer_Title") = "Product" 

end if 

%> 



<html> 
<head> 

<title>Admin2a.asp</title> 



end if 



end if 
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</hcad> 

<body bgcolor="#99CCFF" vlink="000000 ,, link="003366 , '> 

<form mcthod="post" action="admin2a.asp" id="form2" name="form2"> 
<table width="640" border="0" cellpadding="2"> 
<% if IJrom > " " then %> 

<font size=M" face=*Verdana, Arial, Helvetica, sans*seriP coior=black> 
<b>Please select a Product Id </b> 

</font> 

<input type^Hidden" name="FR" value^^oResponse. Write l_from %>"> 
<% else %> 

<% prevSelections ( 1 ) %> 

<input type^'Hidden" name="from" value="0"> 
<% end if %> 
<tr valign="BOTTOM"> 

<td width="65-> 
</td> 

<td width="425"> 

<p> <img src="../graphics/drilldown 1227.gif width="47" height=" 1 1" border=Oxbr> 
<% strGrp = sessionCGRP.NAME") 
ifl_from> " " then 

strSQL = "select PRODUCTJD, TITLE_NAME from 

CORPJNFO where " _ 

A" • , &SESSION(-P!D_PHRASE - )_ 
& " Order by title_name " 

else 

strSQL = "select PRODUCTJD, TITLE_NAME from 

CORPJNFO where " _ 

& " grp name- " & strGrp _ 

& - and~( " & SESSIONrPID_PHRASE") & _ 

& " Order by title_namc " 

end if 

•rcsponse.write ("<br>SQL: " & strSQL & "<br>") 

objRST.open strSQU strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST, "cmb\5, "SELECT PRODUCT," " 

objRST.close%> 

<input type="IMAGE" namc="go" value="go'' src=".. /graphics/go 1222.gif 

border=0> 

</p> 

</td> 

</tr> 
<tr> 

<td width="*"> 

<%' <img sr(T=".7graphics/optional 1 222.gif width="37" height="l 1"> 

' setupTableListBox %> 

<br> 

</td> 

</tr> 

<tr valign="top"> 

<td width="640" colspan="3"> 
<p> </p> 

</td> 

</tr> 
</table> 

</form> 

</body> 
</html> 
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admin3a.asp 



<%@ Languagc=VBScript %> 

<!- #include file="../support/global_constants.asp n — > 
<!- flinclude fi!e="../support/dbConnection.asp" -> 
<!- ^include filc=".7support/adoUtils.asp" -> 
<!- ^include file=".Vsupport/srcTab.asp" -> 

<% 

•chcckScssionVars(2) 
I_this_file = "admin3aLasp" 
Session("referj)age") = "admin3a.asp" 
SessionCrefcrjnUe") = "Source Category" 

'if Request.form("AUTOSETUP") o then response, red irectftabautosetup.asp") 
'if (RequestFormfdisplay")^" 

* and Request Form("seiupTab")o "0" _ 

* and Request.Form("setupTab") > then 

* Response. Redi^ect(RequestForm("sctupTab' , )) 
'end if 

dim tmp 

tmp = Request Form("cmb") 

'response.write ("<br>Source Category: " & tmp & "<br>") 
IF tmp o -0- and tmp >" " THEN 

Sess ion("S RC_CAT_N AME") = tmp 

Response.Redirect("admin4a.asp") 
end if 
%> 



<html> 
<head> 

<title>Admin3a.asp</titIe> 
</head> 

<body bgcolor="#99CCFF" vlink="00000<r link= w 003366"> 

<tab!e width^o^O" border="0" cellpadding="2"> 
<% prevSelections (2) %> 

<form method="post" aciion="<%Response. Write l_this_file %>" id="form2" name="form2"> 

<u* valign="BOTTOM"> 
<td width="65"> 

<% ' <a hrc£="adminSearch.asp"> 

' <img src=".ygraphics/fastfind.gir width="36" height="30" border="0"x/a> 

%> 

</td> 

<td width=M25"> 

<img src=".Vgraphics/drilldown I227.gif width="47" height 3 "! I" border="0"xbr> 



strSQL = "select SRC_CAT_NAME from S RC_C ATEGOR Y where " 

& " grp name = "& Session("GRP NAME") & m,m _ 

& " and PRODUCT jr>*" & Session("PRODUCT_ID") & "*" 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST, "cmb\5, "SELECT SOURCE CATEGORY\-l 
objRST.dose 
%> 

<input typc= 2 "IMAGE" name="go" value="go" src="../graphics/go 1 222.gif* W1DTH="33" HEIGHT="16" border="0"> 



<% 



<p> 
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< p > 

<input type=" HIDDEN" namc="AUTOSETUP" value="Edit Auto-Setup Parameters'^ 
<p> 



</td> 
</form> 



<%' setupTableListBox l_thisjile%> 
</tr> 

<tr valign="top"> 
<td width="640" coIspan="3' , > 
<p> </p> 

</td> 
</tr> 
</table> 
</form> 
</body> 
</html> 
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admin4a.asp 



<%@ Language=VBScript %> 

<!- tfinclude filc=".7suppori/globaJ_constants.asp" -> 
<!- U include fiIe=".Vsupport/dbConnection.asp" -> 
<!- # include file=".ysupport/adoUtils.asp" -> 
<!- U include file=*\./support/srcTab.asp"-> 
<!- include File=\./support/JavaScripts.asp" -> 

<% 

checkSessionVars(3) 
l_this_file = "admin4a.asp" 

Sess ion("rcfer_page") = "admin4a,asp" 

SessionCrefer_Title") = "Source" 
if(RequesLForm("disp1ay*)="2" _ 

and Request. Form("setupTab ,, )o "0" _ 
and RcquestForm("setupTab") > " ") then 
Response. Red irect(Rcqucst. Form("setupTab ")) 

end if 

dimtmp 

imp = Request Form("cmb") 



IF tmp o "0" and tmp > " " THEN 
sesston("SOURCE_NAME") = tmp 

strSQL = "select SRC_INDICATOR from SOURCE where SOURCE_NAME-" & SESSION("SOURCE_NAME") 
& - and Product_id=" & SESSIONfPRODUCTJD") 
'Response, Write strSQL 

objRST.open strSQU strSQLOLEDB, adOpenStatic, adLockOptimistic 
sessionC-SRC.rNDICATOR") = objRST.Fields(O). Value 
objRST.close 

'sessionCTITLE^NAME") = 
Response.Rcdirect("admin5a.asp") 
end if 

%> 

<headxtitle>Admin4a.asp</tille> 

<% LorieScripts %> 

</head> 



<body bgcolor="#99CCFF" vlink="000000" link="003366" 

onU)ad="MMjjreloadImagesCgraphics/edi^ 

5899269583T> 

<% ■ <body bgcoIor="#99CCFF" vlink="000000" 1ink="0O3366"> %> 

<table width="640" border="0" cellpadding="2 w > 
<% prevSelections (3) %> 

<form method="post" action="<%Response. Write l — this — file %>" id="form2" namc="form2' , > 
<tr valign="BOTTOM"> 
<ld width="65"> 

<% ' <a hre£="adminSearch.asp"> 

* <img src=".Vgraphics/fastfind.gir widuv="36" height="30" border="(TX/a> 

%> 

</td> 

<td width="500"> 

<p> <img src=".7graphics/dril!downl227.gir width="47" heighten" border="0"xbr> 



<% 



strSQL = "select SOURCE NAME from SOURCE where " 
& " grp_name = - & Session("GRPNAME") & _ 
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& " and PRODUCT_ID=- & Session("PRODUCTJD")_ 

& " and src_cat_name = " & Session("SRC_CAT_NAME") & "" 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST,"cmb",5, "SELECT SOURCE", -1 

objRST.closc 

%> 

<input type=" IMAGE" name="go" vaIue*="go" src=".7graphics/gol222.gir WIDTH="33" HEIGHT="16" border="0"> 



</td> 
</form> 

<% ' sctupTableListBox Ijhisjile %> 
</tr> 

<tr va!ign="top"> 
<td width="640" colspan="3"> 
<p> </p> 

</td> 
</tr> 
</tab!c> 
<% 

l_qucry = "select SOURCE NAME, SRCJNDICATOR, rec_id from SOURCE where " 

& - grp_name = '" & Session("GRP_NAME") & "" _ 

& " and PRODUCT_ID=" & Session("PRODUCT ID") & "" _ 

&"andsrc_cat name = '" & Session("SRC_CAT_NAME") & ""_ 

&" Order by SOURCE NAME " 



l_columnCount = 2 
l_addProc = "addSource.asp" 
l_cditProc = "editSource.asp* 
dim Ijitle(2), l_columnWidth(2) 

l_title<0) = "SOURCE NAME " 

1 columnWidth(0) = "l66" 

f title(l) = " SOURCE<br> INDICATOR " 

I_co!umnWidih(l) = "4I" 



adminTable l_Tit!e, l_Query, I_ediiProc,l_addProc,l_column Width, L_CoIumnCount 



<p> 



%> 



</form> 
<rtx>dy> 
<rtitml> 
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adminSa.asp 

<%@ Language=VBScript %> 

<!- ^include file="../support/global_constants.asp" — > 
<!- ^include filc^.Vsupport/dbConnection.asp" -> 
<!- ^include fiIe^"../support/adoUtils.asp" -> 
<!- ^include fiIe= ,, ../support/srcTab.asp" -> 
<!- ^include fiIe=\./suppo^t/JavaScripts.asp ,, -> 
<!- ^include file=".7support/objEditasp" -> 
<% 

chcckSessionVars(4) 
l_this_ftlc = "admin5a.asp" 

Session("refer_page") = "adminSa.asp" 
Scssion("refcr_Title") - "Campaign" 

if (Request Form("display")="2" _ 

and Request. Form("setupTab")o "0" _ 
and Request Form("setupTab") > " ") then 
Rcsponse.Redirect(RequestForm("setupTab")) 
end if 

dim tmp 

tmp » Request Form("cmb") 

IF tmp o "0" and tmp > " " THEN 

session("CAMP_NAME") = tmp 

Response. Red irect("admin6a. asp") 
end if 

'Dim vars 

'Common 
dim recordcount 
dim checkedj-ccords 
dim i 

dim WhereCIause 
dim recordidlist 

'Edit vars 
dim MSE 

'Group Edit vars 
dim PGE 
dim index 
dim record id 

'Add 

if Request form("addbutton") > " " then response.redirectCaddCamp.asp") 
'Edit 

if Requestform("editbutton") > " " then 

'Setup first page, then let edit handle the rest 

'init obj 

set MSE = new objGroupEdit 
'Get records 

recordcount = Request form("P_RecCount") 

'response. writeCThere are " & cstr(recordcount) & " records <br>") 

recordidlist = "" 

toomanyrecords = 0 

checked_records » 0 

for i = I to recordcount 

recordid = Request form("P_check" & cstr(i)) 
if record id > ■ " and len(recordidlist) > 0 then 
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checked_records - checked_records + I 
if checked_records > 19 then 




next 

SessionfRECORDIDLIST) =* recordidlist 
SessionCtoomanyrecords") = loomanyrecords 

if recordidlist > " " then response.redirectCms_editcampaign.asp?pg=I") 



•Post/Delete/Copy Group Edit Info 

if Request form("GroupEdit") > " " or request form("de!etebutton") > " " or request, form("copybutton") > " " then 
'init obj 

set PGE = new objPostGroupEdit 
PGE.init 

*Gct records 

recordcount = Request form("p_RecCount") 

'response. write("There are " & cstr(recordcount) & " records <br>") 
for i = I to recordcount 

recordid = Requestform("P_check" & cstr(i)) 
if recordid > " " then PGE.AddRecord recordid 
* response. write(record id) 



*Set Stored Procedure info 
PGE.ClassType = "Group Edit" 
PGE.SP = "sp_edit_campaign" 
PGE.TableName = "campaigns" 

if Request form("GroupEdit") > " " then PGE.IsDelete « 0 
if request form("deletebutton") > " " then PGE.IsDelete = 1 
if request form("copybutton") > " " then PGE.IsDelete - 2 
PGE.AddParam *camp_name" 
PGE.AddParam "camp_date_fr" 
PGE.AddParam "camp_type" 
PGE.AddParam "camp_status_name" 
PGE.AddParam "c_set_name" 
PGE.AddParam "r_set_name" 
'PGE.AddParam "newstand_sale" 
PGE.AddParam "budgeted_gross_pct" 
PGEAddParam "budgeted_vol" 
PGE.AddParam "login" 
PGE.AddParam "rec_id" 
PGE.AddParam "IsDelete" 
objCMD.ActiveConnection « strSQLOLEDB 
objCMD.CommandText = "sp_edit_campaign" 
objCMD.CommandType = adCmdStoredProc 
objCMD.parameters.refresh 
PGE.PostGroupEditsBySP 



end if 

%> 

<html> 
<head> 

<title>Admin5a.asp</title> 
</head> 

<% LorieScripts %> 

<body bgcolor="#99CCFF" v!ink="000000" link="003366"> 
<tablc width="640" border="0" cellpadding="2"> 



end if 



next 'i 
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<% prevSeiections (4) %> 

<form method="post" action="<%Response. Write l_this_file %>" id="form2" name="form2"> 
<tr vaIign="BOTTOM"> 
<td width="65"> 

<% ' <a href="adminSearch.asp"> 

1 <img src=".7graphics/fastfind.gir width="36" height="30" bordcr="0"x/a> 

%> 

</td> 

<td width="425"> 

<p> <img src=".ygraphics/drilldown 1 227.gif* width="47" height="U"xbr> 



<% 

strSQL = "select CAMP_NAME from CAMPAIGNS where " _ 
& ■ grp name = '" & Session("GRP_NAME") & _ 
& ■ and~PRODUCTJD=*" & Session("PRODUCTJD") & "" _ 
& " and src_cat_name = '" & Session("SRC_CAT_NAME") & "'" _ 
& * and source_name = *"& Session("SOURCE_NAME") & "'" _ 
& ■ ORder by CAMP_NAME DESC " 

objRST.opcn strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

shoWQueryListBox objRST, "cmb",5 t "SELECT CAMPAIGN", -1 
objRST.close 

%> <input type="IMAGE" namc="go" va!ue="go" src="../graphics/gol222.gir 
WIDTH="33" HEIGHT="16" border=0> 



</p> 



</td> 
</form> 



<% ' setupTableListBox l_this_file %> 
</lr> 

<tr vaIign="top"> 
<td width="640" colspan="3"> 
<p> </p> 

</ld> 
</tr> 
</lable> 
.<% 

'Group Edit info 

set GE = new objGroupEdit 
GE.init 

GE. action = "admin5a.asp" 
GE.RowCount = I 

'Group Edit Show/Hide button 

if RequesLformfSHOWGROUPEDrr) > " ' then 

%> <form method="post" action=" <%Response. Write l_this_file %>" id="hidegeform" 

name="hidegeform"> 

<table> 

<tr> 

<td width=*20">&nbsp</td> 
<tdxinput type="submit" value="Hide Group Edit" 
name="HlDEGROUPEDrr action="form.submit"x/td> 
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</tr> 

</iablo 
</form> 

<% 

GE.Show = True 

else 

%> <form method="post" action=" <%Rcsponsc. Write l_this_file %>" id="showgeform" 
namc="showgeform"> 

<tab!e> 

<tr> 

<td width="20">&nbsp</td> 
<tdxinput type="submit" valued-Show Group Edit" 
name="SHOWGROUPEDrr action="form.submit"x/td> 

</tr> 

</table> 
</form> 

<br> <form method="POST action="<%=action%>" name="Group_Edit_Form" cellpadding="3" 

cellspacing -"3"> 

<% 

GE.Show = False 

end if 

'Campaign Name 
index = GE.Addltem 
GEfieldTypc index, "LABEL" 
GEColumnHeader index, "CAMPAIGN NAME" 

'Campaign Start Date 
1 index = GE.Addltem 
GE.fieJdTvpc index, TEXT" 
GEColumnHeader index, "CAMPAIGN DATE" 

'Campaign Type 
index = GE.Addltem 
GE.fieUTvpe index, "SELECT 
GE.ColumnHeader index, "CAMPAIGN TYPE" 

GE.strSQL index, "select CAM P_TYPE_N AM E from PROD_CAMP_TYPE where PRODUCT_ID=" & 
Session("PRODUCTJD ,, ) & * order by camp_type_name " 

'Campaign Status 
index = GE.Addltem 
GE.fieldtvpe index, "SELECT" 
GE.ColumnHeader index, "CAMPAIGN STATUS" 

GE.strSQL index, "select CAM P_STA.TUS_N AM E from PROD_CAMP_STATUS where PRODUCT_ID=" & 
Session("PRODUCTJD , ') & * order by camp_status_name " 

'Campaign End Date 

'index = GE.Addltem 

'GE.fieldType index, "LABEL" 

'GE.ColumnHeader index, "CAMPAIGN END DATE" 

'Expense Set 

index = GE.Addltem 

GE.fieldr>pc index, "SELECT" 

GE.ColumnHeader index, "EXPENSE SET" 

GEstrSQL index, "select e_set_name from EXPENSE_SETS where PRODUCT_ID=" & 
Session("PRODUCTJD") & * order by e_set_name " 

'Revenue Set 
index = GE.AddItem 
GEfiei<n*ype index, "SELECT 
GEColumnHeader index, "REVENUE SET" 

GEstrSQL index, "SELECT r_set_name from revenue_sets where productjd = " & Session("PRODUCTJD") 
& * order by r_set_name" 

*Newstand Sale 
'index = GE.Addltem 
•GEfieldType index, "TEXT" 
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'GE.ColumnHeader index, "NEWSTAND SALE* 

"Budgeted Gross % 
index = GE.Addltem 
GE.fieldtype index, "TEXT* 

GE.ColumnHeader index, "BUDGETED GROSS PCT 

'Budseted Vol 

index = GE.Addltem 

GE. fteldtype index, TEXT 

GE.ColumnHeader index, "BUDGETED VOL" 

'Page 

GE.MS_Page=l 

'Display Table 
GE.DispIayEditTable 

l_query = " select CAMP_NAME as 'CAMPAIGN NAME*, CAM P_D ATE_FR as 'CAMPAIGN DATE, CAMPJTYPE 



as 'CAMPAIGN TYPE', " 

& " CAMP.STATUS^NAME as 'CAMPAIGN STATUS', E_SET_NAME as 'EXPENSE SET, R_SET_NAME as 'REVENUE 
SET," 

& " BUDGETED_GROSS_PCT as 'BUDGETED GROSS PCT, BUDGETED_VOL as 'BUDGETED VOLUME*. 
RECJD from CAMPAIGNS where " 

& " GRP NAME = "& Session("GRP NAME") & "*" _ 

& " and PRODUCTJD=" & Session("PRODUCTJD") & "" _ 

& " and src_cat_namc = '"& Session("SRC_CAT_NAME") & "*" _ 

& " and source_name = " & Session("SOURCE_NAME") & _ 

& " Order by CAMP.NAME DESC " 

l_columnCouni = 8 
l_addProc = "addCamp.asp" 
l_editProc = "editCamp.asp" 
dim I_title(8). l_columnWidth(8) 



IjiUevO) = "CAMPAIGN NAME " 

l_columnWidth(0) = "152" 

I titkO) = "CAMPAIGN<br> START DATE " 

fcolumnWidth(l) = "76" 

f titiei'2) = "CAMPAIGN TYPE " 

f column Widlh(2) = "76" 

I_titlo;3) = "STATUS " 

I columnWidlh(3) = "69" 

ftidev*) = "EXPENSE SET " 

1 column Widih(4) = "73" 

ftitl«<5) = "REVENUE SET" 

I co!umnWidlh(5) = "73" 

ftiUe<6) = "BUDGETED GROSS PCT 

fcolunmWidth(6) = "4<r 

f title(7) = "BUDGETED VOLUME" 

l_columnWidth(7) = "40" 

'adminTable l_Title, LQuery, l_editProc,l_addProc,l_columnWidth, L_ColumnCount 
I_narr*e = "Campaigns" 
l_editProc « "editCamp.asp" 
IdCamp.asp" 

set imObjEdit = New ObjEdit 

myObjEditinit l_Name, l_ediiProc,l_addProc, l_this_file 
myObjEditdefineComplex(8) 
' myObjEd iLsetQuery(l_query) 
m>ObjEdit_SelectTable 



%> 



</form> 
</body> 
</html> 
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admin6a.asp 

<%@ Language^ VBScript %> 

<!- ^include file=V7support/g!obaI_constants.asp'* -> 
<!- ^include flIe=\7support/dbConnection.asp ,, -> 
<!- ^include fi!e=\7support/adoUtils.asp" -> 
<!- U include filc=".7support/srcTab.asp" -> 
<!- ^include flie=^7suppo^t/JavaSc^ipts.asp' , -> 
<!-#include fi!e=\7support/objEditasp" -> 
<!-#indude file=^7suppo^t/objRecIdManage^asp' , -> 
<% 

chcckScssionVars(5) 
l_this_file = "admin6a.asp" 

Session("refer_page") = "admin6a.asp" 
SessionCrefer_Title") - "Panel" 

if (Request-Formfdisplay")^" and Request Form("$etupTab' , )o "0" and RequesLFormCsetupTab") > " ") then 

Response.Redircct(Request.Form("setupTab")) 

dim tmp 

imp = Request_Form("cmb") 

IF tmp o "0" and tmp > " " THEN 

sessionCPANEL_NAME") = tmp 
Responsc.Redirect("AdminKeys.htm ,, ) 
end if 

'Dim vars 

'Common 

dim recordcount 

dim i 

dim WhereClause 
dim record idlist 

'Edit vars 
dim MSE 

'Group Edit vars 
dim PGE 
dim index 
dim record id 

'Add 

if Request form("addbutton") > " " then response.rcdircctCaddPanel.asp") 
'Edit 

if Request form("cditbutton") > " " then 

'Setup first page, then let edit handle the rest 

'init obj 

set MSE = new objGroupEdit 
'Get records 

recordcount = Request form(' , P_RecCount") 

'response. writeCThere are " & cstr(recordcount) & " records <br>") 
recordidlist = 
toomanyrecords = 0 
checked_rccords = 0 
for i = 1 to recordcount 

recordid = Requestform("P_check" & cstr(i)) 
if recordid > " " and len(recordidlist) > 0 then 

checked_records ** checked_rccords + 1 
if checked_records > 19 then 
toomanyrecords = I 

else 
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record idlist = record id list + "," + cstr(recordid) 

end if 

elseif recordid > " " then * don*t add comma first time 
record idlist = cstr(recordid) 

end if 

next 

Session("RECORDIDLIST) = recordidlist 
Sessionftoomanyrecords") = toomanyrecords 
session("page") = 1 

if recordidlist > * " then response.redirect("rns_editpanel.asp?pg=r) 

end if 

'Post/Delete Croup Edit info 

if Request form("GroupEd it") > " " or requestform("deletebutton") > " " or request form("copybutton") > " " then 



'in it obj 

set PGE « new objPostGroupEdit 
PGE.init 

'Get records 

recordcount = Request form("p_RecCount") 

'response. write("There are " & cstr(recordcount) & " records <br>") 

for i = 1 to recordcount 

recordid = Request form("P_check" & cstr(i)) 
if recordid > " " then PGE.AddRecord recordid 
response.write(recordid) 

next 'i 

•Set Stored Procedure info 
PGECIassType » "Group Edit" 
PGE.SP = "sp_edit_panel" 
PGE.TableNamc = "panels" 

if RequestformfGroupEdit") > " " then PGE.IsDelete = 0 
if requestform("deletebutton") > " " then PGE.IsDelete = 1 
if requestform("copybutton") > " " then PGE.IsDelete = 2 
PGE.AddParam "panel_name" 
PGE.AddParam "panel_date_start" 
PGE.AddParam "panel_type" 
PGE.AddParam "panel_subtype" 
PGE.AddParam "test_type" 
PGE.AddParam "panel_pkg" 
PGE.AddParam "e_s€t_name" 
PGE.AddParam "r_set_name" 
"PGE.AddParam "newstand_sale_marker" 
PGE.AddParam "login" 
PGE.AddParam "rec id" 
PGEAddParam "IsDeiete" 
objCMDActiveConnection =* strSQLOLEDB 
objCMD.CommandText = "sp_edit_pancl* 
objCMD.CommandType = adCmdStoredProc 
objCMD.parameters. refresh 
PGE.PostGroupEditsBySP 

'Post Edits By Query starts here ... 
'Build where clause 

Whereclause = " and grp_name = "& Session("GRP NAME") & "'" 
• & • and PRODUCT 10=" & Session("PRODUCT_ID") & "'" _ 
' & ■ and src cat name = - & Session("SRC CAT_NAME") & "'" 
' & " and source name = & Session("SOURCE NAME") & "'" 
' & ■ and Camp_name « ~ & SessionfCAMPJMAME") & "'" 

'Panel Date Start 
index = PGEAdditem 

PGE.UpdatcSQL index , "Update panels set panel_date_start=" 
PGE Where index, WhercClause 

Tanel Type 
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index - PGE-Addltem 

PGE.UpdateSQL index, "Update Panels set Paneljype =" 
PGE. Where index, WhereClause 

'Panel SubType 
index = PGE.AddItem 

PGE.UpdatcSQL index, "Update Panels set panel_subtype=" 
PGE.Where index, WhereClause 

Test Type 

index = PGE.Addltem 

PGE.UpdateSQL index, "Update Panels set test_type=" 

* PGE.where index, whereclause 

'Package Type 
index = PGE.additem 

PGE.UpdateSQL index, "Update Panels set panel_pkg =" 
PGE.where index, whereclause 

'Expense Set 
index= PGE.Addltem 

PGE.UpdateSQL index, "Update Panels set e_set_name = " 
PGE.Where index, WhereClause 

Tlevenue Set 

index = PGE.Addltem 

PGE.UpdateSQL index, "Update Panels set r_sct_name = " 

* PGE.where index, whereclause 

Tvlewstand Marker 

index = PGE.Addltem 
' PGE.UpdateSQL index, "Update Panels set newstand_sale_marker=" 

' PGE.where index, Whereclause 

'Do it 

PGE.PostGroupEditsByQuery 
'...and ends here 

end if 



%> 

<html> 
<head> 

<title>Admin6a.asp</titIe> 
</head> 

<% LorieScripts %> 

<body bgcolor="#99CCFF" vlink="000000" link="003366"> 

<table width="640" border="0" cellpadding="2"> 

<% prevSelections (5) %> 
<form method="post" action="<%Response. Write l_this_file %>" id="form2" name="form2"> 
<td widlh="40"x/tdxtdximg src=".7graphics/driildown 1227.gif width="47" height="l l"X/tdxbr> 
<td width="60"> 



<% 

strSQL= "select PANEL NAME from PANELS where " 
& " grp_name = # " & Session("GRP NAME") & _ 
& " and PRODUCT_lD=*" & SessionfPRODUCTJD") & "" _ 
& " and src_cat_name = SessionfSRCCATNAME") & "" 
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& " and source_name = "& SessionfSOURCEJMAME") & 
& " and Camp_name = " & Session("CAMP_NAME") & "'" 



objRST.opcn strSQU strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBoxobjRST, -cmb" f 5, "SELECT PANEL",- 1 
objRST.close 
%> 

<input typc="IMAGE" namc="go" value^go" src=".7graphics/go 1222.gif 
WIDTH="33" HEIGHT^ - 16" border=0> 



</p> 



</td> 
</form> 

<%* sctupTablcListBox l_this_filc %> 
</tr> 

</tablc> 
</form> 

<% 

!_cditProc = "editPanel.asp" 
l_addProc = "addPanel.asp" 

myQ = "select PANEL_NAME AS "PANEL NAME', " _ 
& " P AN E L_D ATE_ST ART as "PANEL DATE START, " _ 
& " PANEL TYPE as 'PANEL TYPE', " 
& " PANEL_SUBTYPE as 'SUBTYPE',". 

& " TESTTYPE as TEST TYPE',"_ 
& • PANEL_PKG as 'PACKAGE', "_ 
& " E_SET_NAME as 'EXPENSE SET, " _ 
& " R_SET_NAME as 'REVENUE SET,"_ 

&" RECJD from PANELS where " _ 
& " grp_name = *"& Session("GRP_NAME") & _ 
& " and PRODUCT_ID=" & Session("PRODUCTJD ,, ) & "" _ 
& " and src_cat_namc = & Session("SRC_CAT_NAME") & 
&"andsource_name = '"& Session("SOURCE_NAME") & "'"_ 
&"andCamp_name ='"& Session("CAMP_NAME") & "'"_ 
& " Order by SOURCE_N AME " 
l_name - "Panels" 

set myObjEdit - New ObjEdit 
%> <% 

'Group Edit info 

set GE = new objGroupEdit 
GE.inii 

GE.action = "admin6a.asp" 
GE.RowCount = 1 

'Group Edit Show/Hide button 

if RequestformfSHOWGROUPEDrr) > * " then 

%> <form method="post" action=" <%Responsc. Write l_this_fi!e %>" id="hidegeform" 

name="hidegeform"> 

<table> 

<tr> 

<td width="20">&nbsp</td> 
<tdxinput type^'submit" va!ue s ="Hide Group Edit" 
name="HIDEGROUPEDiT"action="form.submit"x/td> 

</tr> 

<Aable> 
</form> 

<% 

GE.Show = True 

else 
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%> <form mcthod="post" action=" <%Response. Write l_this_fi!e %>" id="showgeform" 
name="showge form"> 

<iable> 

<tr> 

<td width="20">&nbsp</td> 
<tdxinput type^submit" vaIuc="Show Group Edit" 
namc="SHOWGROUPEDrT"action= ,, forrn.subrnir></td> 

</tr> 

</tablO 
</form> 

<br> <form method="POS*T action-"<%=action%>" namc="Group_Edit_Form" cellpadding=*3" 

cellspacing ="3"> 

<% 

GE.Show = False 

end if 

'Panel Name 

index = GE.Addltem 

GE.fieldTypc index, "LABEL" 

GE.ColumnHeader index, "PANEL NAME" 

"Panel Date Start 

index = GE.Addltem 

GE.fieldTypc index, "TEXT" 

GE.ColumnHeader index, "PANEL DATE START" 

'Panel Type 

index = GE.Addltem 

GE.fieldTypc index, "SELECT" 

GE.ColumnHeader index, "PANEL TYPE" 

GE.strSQL index, "SELECT panel_typc_name FROM corp_pancl_typc ORDER BY panel_type_name" 

'Panel SubType 
index - GE.Addltem 
GE.fieldtype index, "SELECT" 
GE.ColumnHeader index, "SUBTYPE" 

GE.strSQL index, "SELECT panel_subjype_name from corp_panel_sub_typc order by panel_sub_type_name" 
Test t\pe 

index = GE.Addltem 
GE.fieldtype index, "SELECT" 
GE.ColumnHeader index, "TEST TYPE" 

GE.strSQL index, "SELECT paneljest_type_name from corp_panel_test_type order by panel_test_type_name" 

'Package Type 
index = GE.Addltem 
GE.fieldtype index, "SELECT" 
GE.ColumnHeader index, "PACKAGE" 

GE.strSQL index, "SELECT package_name from prod_panel_package where productjd = " & 
Session("PRODUCT_ID") & " order by package_name" 

•Expense Set 

index = GE.AddItem 

GE.fieldtype index, "SELECT 

GE.ColumnHeader index, "EXPENSE SET 

GE.strSQL index, "SELECT e_set_namc from expense_sets where product_id =• " & Session("PRODUCTJD") 
& " order by c_set_name" 

•Revenue Set 
index = GE.Addltem 
GE.fieldTypc index, "SELECT 
GE.ColumnHeader index, "REVENUE SET 

GE.strSQL index, "SELECT r_sct_name from revenue_sets where productjd = " & Session("PRODUCTJD") 
& " order by r_set_name" 

•New-stand Marker 
'index = GEAddltem 
•GE.fieldTypc index, "SELECTLOV" 
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■GEColumnHeadcr index, "NEWSTAND MARKER" 
'GE.strSQL index, "N,Y° 

'Page 

GE.MS_Page = 1 
*GE.MS_Table - "panels" 

'GE.MS WhereClause - "where grp_name = " & Session("GRP_NAME") & "•" _ 

& " and PRODUCT_ID=" & Session(-PRODUCT_ID") & " _ 
& " and src_cat_name = *" & Session("SRC_CAT_NAME") & " 

& " and source_name = m & SessionCSOURCE_NAME") & 

& " and Camp_name = - & SessionfCAMP_NAME") & ~" 
*GE.MS_OrderBy = " Order by SOURCE_NAME " 

'Displav Table 
GE.MS_Page = 1 
GE.DisplayEditTable 

myObjEdiLinit l_Kame, l_editProc,t_addProc, l_this_file 

rnyObjEdiLdefineCornplex(lO) 

myObj Ed itsetQuen (myQ) 

myObjEdiLSelectTable 



</body> 
</html> 
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adminindex.asp 



<%@ Language=VBScrif>t %> 

<!- ^include file=".7support/global_constants.asp" — > 

<!- #include file=".Vsupport/dbConnection.asp" -> 

<!- ^include file=\./suppori/adoUtils.asp" -> 

<htrnl> 

<hcad> 

<tit!c>IMT Network</titie> 
</hcad> 

<body bgcolor-"99CCFP background=rygraphics/adminhorzslice.gir text="#000000" link="6699CC marginwidth="0" 
marginheight="0" lcftmargin="0" topmargin="0"> 
<form mcthod="post" action id=*forml" name="formT> 
<table width="660" border="0" cellspacings" 10" cellpadding="0"> 



<form METHOD="POST ACTION=* Adminindex.asp" id="form2" name="form2"> 
<% 

'dim sre 

*src = Request. Form(" Go") 
dim v_state, v_tmp, v_namc 
dim strTable, strField, strWhere 

v_statc = Request. Form("state") 



if v_tmp o "0" and v_tmp > " " then 
if v_state = "PRODUCT GROUP" THEN 

/state = "PRODUCT 

Scssion("TABLE") = " CORP fiNFO " 

Session("FIELD") = " PRODUCTJD, TITLE_NAME" 

SessionfWHERE-) = " GRP.NAME = '" & vjmp & "'" 
* Response. Write "< input type='Hidden" name- GRP' value- " & v_tmp & "*> " 
clseifv state = "PRODUCT THEN 

v_state = "SOURCE CATEGORY" 

SessionfTABLE") = " SRC CATEGORY " 

SessionfFIELD") = ' SRC CAT NAME " 

Session("WHERE") = " PRODUCTJD = " & vjmp & " " 

SessionfPRODUCTJD") = v_tmp 
end if 
else 

* default case 

v_state ="PRODUCT GROUP" 
v_name ="GRP" 

Sess ion(TABLE") = * CORP_INFO " 
Session("FIELD") = " distinct GRP NAME " 
Session(*WHERE")="" 



'ShowRecords objRST. "HI dude- 
end if 

strTable = SessionfTABLE") 

strField = Session("FIELD") 

strWhere = Session(*WHERE") 

' Response.Write (strTable & strField & strWhere) 

strSQL = "select " & strField & " from " & strTable ' & " where * *& strWhere 
ifstrWhere>""THEN 
strSQL « strSQL & " where " & strWhere 
end if 

objRST.opcn strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showListBox objRST, "cmb", false, "SELECT " & v_state , false 
objRST.close 

'Response.Write "<inptn typc^Hidden* name^" & vjiame & value^" & v_state & "*> " 



<tr> 

<td width="162"> <br> 
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%> 
</td> 

<td rowspan="6" width="468" valign="top"> 
<div align="centcr"> 
<p> </p> 
<p> </p> 
</div> 
</td> 
</tr> 
<lr> 

<td width="l62"> 
<div aiign="right"> 

<input type=" image" src=V/graphics/smallgo.gif width="83" hcight="30" name="Go" AJt="Go"> 

</div> 
</td> 
</tr> 
<% 

v _grp = Request. Form("GRP") 

if v state = "PRODUCT_GROUP" THEN 



<div align="righi"ximg src=\./graphics/showtablenow.gir width="87" height*" I4"> 

</div> 
</td> 
</tr> 
<tr> 

<td width="162"> 

<tablc width="190" border="0" cellspacing*"*)" cellpadding="0" aJign-"center' , > 
<tr> 

<id height="25"> 

<div aJign^righi'ximg sr<^Vgraphics/preselect21ineslft.gir width="76" hcight="26"x/div> 
</td> 

<td height="25"> 

<div align="left"ximg src=".7graphics/prese!ect21inesrt.gi'r width="86" height="26*'X/div> 



<div align="right , 'xfont size=M" face=" Verdana, Arial, Helvetica, sans-seriP>Product 
Group: </fontx/div> 
</td> 

<tdxfont size="-4" face 32 " Verdana, Arial, Helvetica^ sans-serirxb><variab!e</bx/font>></td> 
</tr> 
<tr> 

<td> 

<div aJign= w righi"xfont sizc="-4" face=" Verdana, Arial, Helvetica, sans-seriF>Product:</font> 
</div> 
</td> 

<tdxfont size 3 "-*" face=" Verdana, Arial, Helvetica, sans-serirxb><variablc</bx/font>></td> 
</tr> 
<tr> 

<td> 

<div align="right"xfont size^M" face=" Verdana, Arial, Helvetica, sans-serif>Source 
Category: </font> </div> 
</td> 

<tdxfont size="-T face="Verdana, Arial, Helvetica, sans-serirxb><variabIc</bx/font>></td> 
</tr> 
<tr> 

<td> 

<div align="right*xfont size="-4" facc=" Verdana, Arial, Helvetica, sans-scrir>Source:</font> 
</div> 
</td> 

<tdxf 0 nt size=M" face="Verdana, Arial, Helvetica, sans-scrif'xb><variabIc</bx/font>></td> 
</tr> 
<tr> 



%> 



</td> 
</tr> 
<tr> 

<td> 
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<td> 

<div align="right"xfont size=' , -4 ,, face=*Verdana, AriaJ, Helvetica, sans-serir>Campaign:</foni> 
</div> 
</td> 

<tdxfont size=M" face=" Verdana, Arial, Helvetica, sans-serif'><b>&U;variab!e</b></font>></td> 
</tr> 
<tr> 

<td> </td> 
<td> </td> 
</tr> 
</table> 
</td> 
</tr> 
<tr> 

<tdwidth="162"> 

<pximg src=".7graphics/optionalASUT.gir width="87" height="23"x/p> 



<seiect name="SELECT ONE"> 
<option>SELECT ONE</option> 
<option>&It;VariabIe></option> 
<option><Variab1c></option> 
</select> 
</p> 
</td> 
</tr> 
<tr> 

<td width="l62"> 

<div align="right"ximg src=\Vgraphics/showtablenow.gif width="87" hcight=" 14"> 
</div> 
</td> 
</tr> 

<%endif%> 



<p> 



</table> 
</form> 
</body> 
</html> 
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adfninindexlogon.asp 



<%@ Language=VBScript %> 

<!- it include filc=".7suppon/gIobaJ_constants.asp" -> 

<!- ^include fil^.ysupport/dbConncction.asp" -> 

<!- #include fiIe=\./support/adoUtiIs.asp" -> 

<% 

dim strNamc 
dim strPass 

strNamc = RequesLSemrVariables("AUTH_USER") 
strPass = RcqucsLScrvcrVariablcs("AUTH_PASSWORD") 
Scssion("U") = strNamc 
Scssion("P") = strPass 



<htrhl> 
<hcad> 

<titIO(MT Nctwork</title> 
</head> 

< frameset rows="97,*" norcsize cols="*" frameborder="NO'* bordcr="0" framcspacing="0' , > 
< frame src="adminnavbar.asp" namc= w navigation" sc^o^ing= ,, NO , ' norcsize framcbordcr="NO"> 
< frame src^'welcome-asp" name="main*' scrolling="YES" frameborder="NO"> 

</frameset> 

<norramcsxbody bgcolor="#FFFFFF"> 

</bodyx/noframes> 
</html> 



%> 
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adminkevs.asp 



<%@ Language=VBScript %> 
<!- # include file^Vysuppoa'globa^constants.asp* -> 
<!- ^include file^.ysuppOfX/dbConnection.asp" -> 
<!- U include file="../suppoa/adoUtils.asp" -> 
<!- ^include fiIe=".Vsuppoa/srcTab.asp" -> 

<% 

l_debug = 1 1 set to 1 if you want to debug this page 



if(Request.Form("display*>="2" _ 

and Request. Form("setuj>Tab")<> "0" _ 
and RequestFonn("setupTab") > " ") then 
Response. Red irect(Reqi>est FormCsetupTab")) 

end if 

if Request("add")=" 1" then 
l_AvailCount - Request. Form("AvailCount") 
if I_debug= I then 



end if 

I_AvailCount = clng (l_AvailCount) 
for j = 1 to l_availcount 
l_val = RcquestForm ("p_check" & j) 
' Response. Write j& "Work damn it" & l_va! & "<br>" 
ifl_val>""then 

my_rcc_id = clng(I_vaJ) 
objCMD.ActiveConnection = strSQLOLEDB 



objCNtD.CommandText = "sp_Add_Keys" 
objCNtD.CommandTypc = adCmdStoredProc 
if t_debug = 1 then 

Response. write "rec id " & recjd & "<BR>" 

Response.write "Sessionf SRC_CAT_NAME') " & Session("SRC_CAT_NAME") & "<BR>" 
Response.write " SessionCSRCJNDlCATOR') " & Session("SRC_[NDICATOR") & "<BR>" 
Response.write "Session('CAMP_NAME') " & Session("CAMP_NAME") & "<BR>" 
Response.write "Session('PANEL NAME*) " & Session("PANEL_NAME") & "<BR>" 



objC MD.Parameters. Refresh 
objCMD.Parameters( I ). Value = my_rec_id 
objCMD.Parameters(2).Value = Session("SRC_CAT_NAME") 
objCMD.Parameters(3). Value ~ Session("SOURCE_NAME") 
objCMD.Parameters(4). Value » Session("SRC_INDICATOR") 
objCMD.Parameters(5). Value » Session("CAMP_NAME") 
objCN(D.Paramcters(6). Value « Session("PANEL_NAME") 
ifljiebugo 1 then 

Set TempNonSessionVar » objCMD.ExecuteO 

else 

RESPONSE.write "would have executed here<br> " 
end if 



* Responsc.Writc my_rtc_id & "<br>" 
end if 
next 
end if 

dim lj)os(10) 

'strSQL « " select full j>romo_key + ' - '+ ltrim(str(mail_qty)) +'-•"_ 
'& " + convert(varchar(12),dt valid Jo)) MY_K£Y, RECJD " _ 
strSQL = " select full j)romojcey MY_K£Y, RECJD " _ 
& " from avail_keys " _ 

& " where Product Jd = " & session("PRODUCTJD") 
'& " and source Jdentifter = '"& session("SRCJNDiCATOR") & " " 
ORderby « " Order by " 



Response.write l_availcount & "<br>" 



end if 
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for i = 1 to 10 
Lpos(i) = RequestfKeyPosition" & i) 
ifl_pos(i) > " " then 
'SQL 

strSQI = strSQL & " and POSITION" & i _ 
&"=*"& RequestfKeyPosition' & i) & - - 
"Order by clause 

runMe = true 

end if 

OrderBy = OrderBy & " Position" & i & " 
next 

if (RequesLForm("runMe") = "I" ) then 

runMe = true 
end if 

Ordcrby = ORdcrby & " FulI_Promo_key " 

strSQL = strSQL & " " & OrderBy 
'Response. Write strSql & "<br>" 
if (RequesLForm("disp!ay") < * ") or (I_pos(l) < " ")then 

l_pos(t) = SessionfSRCJNDICATOR") 
end if 

'Response. Write "<BR> " & strSQL & "<BR>" 
%> 



<html> 
<head> 

<title>IMT Network</title> 



<script language="JavaScript"> 
<!- 

function MM_swapImgRestoreO { //v2.0 
if (document MM_swapImgData != null) 
for (var i=0; i<(document.MM_swaplmgData.length-l); i+=2) 
documeht.MM_swapImgData[i].src = document.MM_swapImgData[i+l]; 

} 

function MM_preloadImagcsO { //v2.0 
if (document, images) { 

var imgFiles = MM_preIoadImages.arguments; 

if (document-preload Array=nu II) document, preload Array = new ArrayO; 
var i - documem.preloadArray.length; 

with (document) for (var j=0; j<imgFilcs. length; j++) if (imgFilesfj].charAt(0) !="#"){ 
preloadArray[i] = new Image; 
prcIoadArray[i++].src = imgFiles[j]; 
}} 

> 

function MM_swaplmageO { //v2.0 

var i j=0,objStr I obj,swapArray=new Array ,oldArray=docurnenLMM_swapImgData; 
for (i=0; i < (MM_swaplmagc.arguments.length-2); i+=3) { 
objStr = MM_swapImage.arguments[(navigator.appName = r Netscape')?i:i+I]; 
if ((objStrJndexOtT;documenLlayeTs[7====0 && document layers=null) || 
(objStr. indexOflTdocument all [*) ~=0 && documentall =null)) 
objStr = •do:ument , ^bjSu.substring(objStr.lasandexOfr.O,objStr.Iength); 
obj = eval(objStr); 
if(obj!= null){ 
swapArray[j++] = obj; 

swapArray[j++] = (oIdArray=nuII Q oIdArray[j-l]!=obj)?obj.src:oldArrayU]; 
obj.src - MM swapImage.arguments[i+2]; 
)) 

documentMM swapImgData = swap Array; //used for restore 

> 

//-> 

</script> 
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</head> 
<body> 



<tab!e width="1253" border="0" cellspacing="10" cel!padding="0"> 
<lr vaJign="top"> 

<td width="l95" height="23" va!ign="top"> 

<table> 

<tr> 

<td> 

<img src^".igraphics/adminopselectavail.giF width="160" height="23" align="top"> 

</td> 

</trxtr> 

<form method="post" action=" AdminKeys.asp" id="forml" name="formr> 
<td width=" 195" rowspan="2" height="30" valign="top" align="left"> 
<div align="left"x/div> 

<lablc width=M80" border="0" cel!spacing="r ccllpadding="0" align="left"> 
<tr> 
<% i = 0 
for i = I to 10 %> 
<td> 

<div aJign =s "ccnter ,, > 

<font size="-4" facc=" Verdana, Arial, Helvetica, sans-serif> 
<bx% Response. Write i %> 
</bx/fontx/div> 
</td> 

<%next %> 
</tr> 
<tr> 

<% for i = I to 10 %> 
<td> 

<div align="center"> 

<input type="text" name="KeyPosition<% Response. Write i %>" sizc="l" maxlength="2" value="<% Response. Write 

1 JK)S(i) %>"> 

</div> 
</td> 

<%next %> 
</tr> 
</table> 

</td> 
<Ar> 

<tr> </tr> 
<tr> 

<td widths" 195" height="30" valign="top"> 
<div align="right"> 

<input typc="image" src=".7graphics/smallgo.gir width="83" height="30" name="Go" Alt="Go"> 
</div> 
</td> 
</tr> 
<tr> 

<tdwidth="195"> 
<% sessionlnfo (6) %> 
<% accesSetupTab %> 

</td> 
</tr> 
<tr> 

</tr> 
</table> 
</td> 
</form> 
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<% ' it all starts here %> 

<td rowspan="7" width="l556" valign="top"> 
<div aIign="center - > 

<pxfont face=" Verdana, Anal, Helvetica, sans-serif 1 color="#FFFFFF"xbxfont s ize= w r> 
</fontx/bx/fontx/p> 
<divalign="left"> 

<table widih="1548" border^O" cellspacing="3" cellpadding="2"> 



<% IF RUNME THEN 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

if (objRST.EOF = true) then 

objRst close 

%> 

<tr> 

<td VALIGN-TOP-> 

<tab!e> 

<tr> 

<td width="24" height="25" align="center"> 
<FONTCOLOR="RED"> 

No Available Keys Meet this Criteria </FONTxAd> 
</trx/tabie> 
<%clse 
%> 



<td VALIGN=TOP"> 
<lable> <% 'Available Keys Table *%> 
<tr> 

<td width= - 24" height="25" align="center"> </td> 
<td width="24" height="25" align="center"> 

<form method="post" name="myForm"> 

<input rype="Submit" id='Submitr name="Submitr value=" Assign Keys^ 
<input type=button value="Select Air onClick="checkAHO"> 
<input type=button value="Unselect All" onCliclc="unCheckAIIO*> 
<input type=" hidden" value="l" name="add"> 
<input type="hidden" value="l" name="runMe w > 
<% for i = 1 to 10 

ifl_pos(i)>""thcn %> 
<input type="hidden" value="<%Responsc. Write l_pos(i) %>" 
namc="KeyPosition<%Response. Write i %>"> 



next%> 

<input typc="hidden" value="l" name="runMe"> 

</td> 

</tr> 

<tr> 

<td width="24" height="25" align="center"> </td> 
<td width=*140" height='25"> </td> 
<Arxtr> 

<td width="24" height="25" align="ccnter"> 

<div align="center' , > 
<br> 

</div> 
</td> 

<ld width="140" height="25" bgcolor="003366"> 
<div align s ="ccntcr ,, > 

<font face*="Verdana, Arial, Helvetica, sans-serif colors FFFFFPxb> 
<font size=T> 
AVAILABLE 
KEYS 

</fontx/bx/fontx/div> 



<tr> 



<% 
end if 
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</td> 
</tr> 



<% 

dim i 1 count variable 
i=0 

Do While ObjRST.EOF = False 

i = i+ 1 

%> 

<tr> 

<td align="center"> 
<div aJign="center"> 

<input typ^-checkbox" name="p_check<%Response. write i%>" value="<% Response.wri te ObjRST.FieldsfRECJD") 

%>"> 

</div> 
</td> 

<td width=M4<T bgcolor=' , FFFFFF"> 
<font size^M" face="Verdana, AriaJ, Helvetica, sans-seriP> 
<% Response.write ObjRST.Fields("MY_KEY") %> 
</fontx/td> 
</tr> 

<% 

ObjRst.movcNExt 
loop 

objRstxlose %> 

<input type="Hidden" name="AvaiICount" vaIue="<%Response.writc i %>"> 

<SCRJPT LANGUAGE=" JavaScripts 



<!- Begin 

function checkAHO { 

for (var j - 1 ; j <= <% Response.write i %>; { 
box = evaICdocumentmyForm.p_chcck" + j); 
if (boxxhecked — false) box. checked = true; 
} 

} 

function unCheckAHO { 

for (var j = 1 ; j <= <% Response.write i %>; j++) { 
box = eval("documentmyForm.p_check" + j); 
if (box.checked = true) box.checked = false; 
} 

) 

II End -> 
</script> 



</table> 

</td> 
</form> 

<% end if 

end if %> 

<td VALIGN=TOP-> 
<table> <% 'Assigned Keys Table *%> 
<tr> 

<td widuV="75" height="25"> </td> 
<td width="25" height=* , 25"> </td> 
<td height="25" colspan="8"> 
<divalign="len"> 
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color="#FFFFFF"xb> 



%> 



</td> 

</tr> 

<tr> 



coIor^"#FFFFFF M xbxfontsizc= w r>PROMOTION 



color= - #FFFFFF"xbxf 0 nt size="r>KEY 



color=-#FFFFFF"xbxfont size=T>MAlL 



color^"#FFFFFF* , xbxfont size=" 1 "xnobr>MAIL 



<font face^'Verdana, Arial, Helvetica, sans-serir 

<font size=" l°x% REsponse.write Session("PANEL_NAME") 

PANEL / ASSIGNED KEYS 
</fontx/bx/fontx/div> 



<td width="75" height="25"> </td> 
<td width="25" height="25"> </td> 
<td bgcolor="003366" height^S" width»'140"> 
<div align^center'xfont face="Verdana, Arial, Helvetica, sans-serif* 

KEY </fontx/bx/fontx/div> 
</td> 

<td bgcolor-'OOaaee" height^S" widths 10" align-" center" > 
<div align="center' , xfont face="Verdana, Arial, Helvetica, sans-serif 

DESCRIPTION </fontx/bx/fontx/div> 
</td> 

<td bgcolor="003366" height="25 ,t width="77"> 
<div aIign="ccnter"xfont facc^" Verdana, Arial, Helvetica, sans-serir 

QTY </fontx/b></fontx/div> 
</td> 

<td bgcolor="003366" height="25" width="l 19"> 
<div aIign="center"xfont face=" Verdana, Arial, Helvetica, sans-serir 



QTY OVERRlDE</fontxybx/fontx/div> 
</td> 

<td bgcolor="003366" height^S" width=*238"> 
<div aIign="center"xfont face="Verdana, Arial, Helvetica, sans -serif 
color="#FFFFFF"xbxfont size=" 1 ">UST</fontx/bx/f 0 ntx/div> 

</td> 

<td bgcolor="003366" height^S" widlh="56"> 
<div align=-center"xfont face=" Verdana, Arial, Helvetica, sans-serif* 

color="#FFFFFF"xbxf 0 nt size-" 1 ">LIST 

CPM</fontx/bx/f 0 nt> </div> 
</td> 

<td bgcolor="003366' t height="25 w width=" 175"> 
<div align="center-xfont face^Verdana, Arial, Helvetica, sans-serir 

color^ffFFFFFF-xbxfont size=" 1 "x n obr>EXPENSE 

SET </fontx/bx/fontx/div> 
</td> 

<td bgcolor="003366" height="25" width="175"> 
<div a!ign="center"xfont face="Verdana, Arial, Helvetica, sans-serir 

color="#FFFFFF"xbxfont sizc="l"xnobr>REVENUE 

SET </fontx/bxyfontxydiv> 
</td> 
<u> 
<% 

StrSQL = "select FULL_PROMO_KEY, P_KEY_DESCR, K£Y_MAIL_QTY, " _ 
& " MA1L_QTY OVERRIDE, LIST_NAME, LlST_COST_ROLLOUT_CPM, E_SET_NAME, • _ 
& " RJSETNAME, KEYS.REC_ID~REC_ID 

& ■ from keys,list_names where keys.productJd="& SessionfPRODUCT JD") _ 

& " and keysxampjiame = & Session("CAMP_NAME") & - " _ 

& " and keys-source name = '"& Session("SOURCE_NAME") & " " _ 

& " and keys.panefname^- & Session("PANEL_NAME") &"'"_ 

8c m and keys.src_cat_name= M, & Session("SRCCAT_NAME") & - m _ 

& " and keys.productjd *= tistjiames.product Jd " _ 

& " and kcys.listjd *= listjiames.recjd " _ 

& " Order by ruIl_jjromo_key " 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
' count variable 
i=0 

Do While ObjRST.EOF = False 
i = i+l 
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%> 



<tr> 



<%if(i= l)then %> 

<td width=*75" rowspan="3" allgn=' , ccntcr"> 

<div align="ccnter"x/div> 

<div align="ccnter ,, xnobr> 

<font face=" Verdana, Arial, Helvetica, sans-seriPxfont size="l"> 
</fontx/fontx/div> 
<div aiign="center"> 
<br> 
</font> 
</div> 
</td> 

<% elseif (i= 2 or i = 3) then %> 

<%else %> 
<td>   </td> 

<%endif%> 

<td width="25"> 

<div align="right"> 

<a href="editKeys.asp?Z=<%Response.wTitc objRST.fieldsCRECJD") %>"> 

<imgsrc =,, .7graphics/editarTOw.gir width-"24" height="l l"> 

</a> 

</div> 
</td> 

<td width^-MO" bgcolor="#FFFFFF" hcight="' 15"> 

<font size="-4" face="Verdana, Arial, Helvetica, sans-serir> 

<% Response. write ObjRST.Fields("FULL - PROMO_KEY") %> 

</fontx/td> 

<td width="210" bgcolor="#FFFFFF" height="l5"> 
<font size^M" face^'Verdana, Arial, Helvetica, sans-serif > 
<% Response.wntc ObjRST.FieIds("P_K£Y_DESCR M ) %> 
</fontx/td> 

<td width="77" bgco!or="#FFFFFF" height="l5"> 
<font size^-4" face="Verdana, Arial, Helvetica, sans-serir> 
<% Response.write ObjRST.Fields("KEY_MAIL_QTY") %> 
</fontx/td> 

<td width="l 19" bgcoIor="# FFFFFF" heights"! 5 "> 

<font size^M" face=" Verdana, Arial, Helvetica, sans-serif> 

<% Response, write ObjRST.FieIds("MAIL_QTY_OVERRIDE") %> 

</fontx/td> 

<td width=*238- bgcolor="#FFFFFF height^ 1 5 "> 

<font size^M" facc=" Verdana, Arial, Helvetica, sans-serifs 

<% Response.write Obj RST.FieldsC LIST_N AME") %> 

</font> 

</td> 

<td width="56" bgcolor="# FFFFFF" height="l5*> 

<font size^M" facc=" Verdana, Arial, Helvetica, sans-serif > 

<% Response.write ObjRST.Fields("LIST_COST_ROLLOUT_CPM") %> 

</font> 

</td> 

<td width*-" 1 75" bgcolor="#FFFFFF" height^ 15"> 

<font size="-4" face=" Verdana, Arial, Helvetica, sans-seriP> 

<% Response, write ObjRST.Fields(*EJ5ET_NAME") %> 

</folit> 

</td> 

<td width= p 175" bgcolor="# FFFFFF" height=-15"> 

<font size="-4" facc=" Verdana, Arial, Helvetica, sans-serif> 

<% Response.write ObjRST.Fields("R_SET_NAME") %> 

</font> 

</td> 
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</ir> 
<% 

obj RST. mo veNext 
loop %> 
</table> 
</td> 
</tr> 



</table> 
</div> 

<p> </p> 
</div> 
</td> 

<% ' it ail ends here %> 
</tr> 

</table> 

</form> 
</body> 

</htm!> 
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admin kevsleft.asp 



<%@ Language= VBScript %> 

<!- #include file=".y$upport/global_constants.asp" -> 

<!- ^include file=".ysupport/dbConnection.asp" -> 

<!- ^include file="../support/adoUtiIs.asp" -> 

<!- # include file="../support/srcTab.asp" -> 

<!- #include fiie=". ./support/keys, asp" -> 

<% chcckScssionVars(6) %> 

<html> 
<head> 
<script> 

function refresh(){ 
var kevin = parent frames. Right ; 
kevin.location.href - "adminKeysRight.asp" ; 



</script> 

<title>lMT Network</tit!e> 
</head> 



<% 

l_debug = 0 

L_THIS_FILE = "adminKeysLett.asp" 
' l_AvailCount = Request. Form(" A VAILCOUNT") 
' Response. Write "availCount = " & l_availcount & "<br>" 

*on error resume next 

if RequestFormCADD^T then 
•Response. Write I_avaiIcount & "<br>" 
l_AvailCount = Request. Form(* AvailCount") 
'Response. Write l_availcounl & "<br>" 
I_AvailCount ~ clng (l_AvailCount) 
server.ScriptTimeout ="5000000 
for j = 1 to l_availcount 
|_val = RequesLForm ("p_check" & j) 
' if l_debug = I then 

' Response. Write j& "Work damn it" & l_val & "<br>" 
' end if 

if l_val > then 

my_recjd = clng(I_val) 
objCMD.ActiveConnection = strSQLOLEDBjdt 



objCMD.CommandText 13 "sp_Add_Keys" 
objCMD.CommandType = adCmdStoredProc 
objCMD. Parameters.Refresh 
if l_debug= I then 
Response. Write my_rec_id & "<br>" 
Response. Write Session("SRC_CAT_NAME")& "<br>" 
Response. Write Session("SOURCE_NAME')& "<br>" 
Response. Write Session("SRCJNDICATOR' ? )& "<br>" 
Response. Write SessionfCAMP NAME") & -<br>" 
Response. Write Session("PANEL_NAME") & "<br>" 
end if 

objCMD.Parameters(l). Value = my_rec_id 
objCMD.Parameters(2). Value » Session("SRC_CAT_NAME") 
objCMD.Parameters(3). Value = Session("SOURCE_NAME") 
objCMD.Parameters(4).Value » Session("SRCJNDlCATOR") 
objCMD.Parameters(5). Value «- Session("CAMP_NAME") 
objCMD.Parameters(6). Value = Session("PANEL_NAME") 
if l_debugo 1 then 

Set TempNonSessionVar = objCMD.ExecuteO 



else 
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' Response. write "I would have executed here, pal,<br> but you're debugging. Turn 

debug off in the source code to resume normal operations<br>"; 
end if 

end if 
next 



end if 

%> 

<% dim l_query 
dim I_pos(l0) 
dim l_ display 

Misplay = Request.Form("DlSPLAY") 
l_query = " select fulljjrornojcey M Y_KEY, RECJD " _ 
& " from avail Jceys " _ 

& " where Productjd = " & session(" PRODUCTJD") 



l_qucry = " select full_prom.o_key MYJCEY, RECJD " _ 
& " from avail_keys " _ 

& • where Productjd = " & sessionf PRODUCTJD") 
'& - and source Jdentificr = "& scssionfSRCJNDICATOR") & " " 
ORderby = * Order by " 

for i == 1 to 10 

l_pos(i) = trim(Requestform("ICcyPosition" & i)) 
ifl_pos(n)>""then 

'l_query = Lquery & " and POSITION" & i & " = *" & trim(RequestFormCKeyPosition" & i)) & 

l_query = l_query & " and substring(full_promojcey," & i & \1) = - & I _pos(i) & *" " 
run Me = true 

end if 

' OrderBy - OrderBy & " Position" & i & \ " 

next 



if (Request-FormrrunMe") = "I" ) then 

runMe = true 
end if 

Orderby = ORderby & " Full_Prorho_key " 

if(trim(l - pos(l))<"")then 

l_pos(l) = SessionfSRCJNDICATOR") 
l_query = I query & " and POSITION I" 
= " &~frim(Lpos(l))&■' ,, 

end if 

I_query - Lquery & " " & OrderBy 

%> 



<% if RequestCadd^Kl" then %> 

<body bgcotor="#99CCFF- vlink="000000" link="003366" ' 
marginwidth="0" marginheighc="(r leftmargin="(T topmargin="0" 
onLoad="refreshO;"> 

<% else %> 

<body bgcolor^^CFF" vlink="000000" !ink»"003366" 
marginwidth=' , 0" marginheighc="0" leftmargin="0" topmargin="0" > 
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<% 
end if 

%> 



<iab!c width="185" cellpadding="2"> 
<tr> 

<td colspan-"3" height="39" width="!52"> 

<% keySearchBoxes l_pos,"adminKeys Left, asp", false %> 

<tr vaJign="top" align =s "right"> 
<td co!span="4"> 

<div aJign="left"xbr> 

</div> 

<div align="Ieft"x/div> 
<p> 

<form method="post" action="<% Response. Write L_THIS_FILE %>" name="myForm" id=forml> 

<%fori = ltolO%> 
<input typc=" HIDDEN" 

name="KcyPosition<% Response. Write i %>" 

value="<% Response.write I_pos(i) %>"> 
<% next 
ifl_disp!ay = "l"then%> 

<input type="IMAGE" $rc=\Vgraphics/assignkcys 1222.gif width="9l" height="28" bordei="0"> 
<%end if%> 
</p> 
<Ad> 
</tr> 

<tr vaJign^top^ 

<td coIspan="4" aJign="Ieft"> <br> 

<input type="HIDDEN" name="ADD" value=" I "> 

<input type=" HIDDEN" name=" DISPLAY" value="r> 

<% 

ifl_display = "l"then 
'Response. Write 1_query & "<BR>" 
Avail KeysTable(l_query) 
end if %> 



</td> 
</tr> 
</tab!e> 
</form> 
</body> 
</html> 
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adminkevsrightasp 

<%@ Language=VBScript %> 
<!- # include filc=".7suppon/gIobal_constants.a5p" -> 
<!- U include fiIe=".Vsupport/dbConnection.asp" -> 
<!- # include file=".Vsupport/keys.asp" -> 
<!-#indude file=".7support/JavaScripts.asp'' -> 
<!-#include fi!e=*.Vsupport/srcTab.asp" -> 
<!-#include file=".Vsupport/adoutiIs.asp" -> 
<!- ^include file=\./support/objEditasp" -> 

<% 



L_THIS_FILE = "adminKeysRightasp" 

response.expires - 0 

res ponsc.expircs absolute = NowQ - I 

response.addHeader "pragmaYno-cache" 

response.addHeadcr "cache-control "."private" 

Response.CacheControl - "no^cachc" 

if Request Form(" ACTION") = "PANEL" then 

l_panel = Request Form("cmb") 

Session("PANEL_NAME") = Lpanel 

end if 

'Dim vars 

'Common 
dim recordcount 
dim checked_records 
dim i 

dim WhereClause 
dim record idlist 

'Edit vars 
dim MSE 

'Group Edit vars 
dim PGE 
dim index 
dim recordid 

'Edit 

if Request formfeditbutton") > " " then 

'Setup first page, then let edit handle the rest 

'init obj 

set MSE = new objGroupEdit 
'Get records 

recordcount ~ Request form("p_RecCount") 
toomanyrecords = 0 

'response. write(There are " & cstr(recordcount) & " records <br>") 

checked_records = 0 
for i = I to recordcount 

recordid = Request form("P_check" & cstr(i)) 
if recordid > " * and len(recordidlist) > 0 then 

checked_records 53 checked_records + 1 
if checked_records > 19 then 
toomanyrecords = 1 

else 

record idlist = record idlist + "," + cstr(recordid) 

end if 

elscif recordid > " " then * don't add comma first time 
recordidlist = cstr(recordid) 

end if 

next'i 
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Session(-RECORDIDLIST-) = rccordidlist 
session("page") = 1 

Session("toomanyrecords") = toomanyrecords 

if recordidlist > " " then responsc.redirect("ms_editkey.asp?pg=l'') 



'Post/Delete Group Edit Info 

if Request formfGroupEd it") > " " or requestformfdeletebutton") > " " then 

'response. write ("Hello World!®!!!!!!") 
response. write(" ") 
'in it obj 

set PGE = new objPostGroupEdit 
PGE.init . 



'Get records 

recordcount = Request. form("p_RecCount") 

'response. write("<br>There are " & cstr(recordcount) & " records <br>") 

for i = 1 to recordcount 

recordid = Request. form("P_check" & cstr(i)) 
if record id > " " then PGE. Add Record recordid 
'response. write(record id & "<br>") 



'Set Stored Procedure info 
PGE.CIassType = "Group Edit" 
PGE.SP = "sp_cdii_key" 
PGETableName = "keys" 

if Request form("GroupEdit") > " " then PGE.IsDelete = 0 

if requestform("deletebutton") > " " then PGE.bDelete - 1 

PGE.AddParam "p_key_descr" 

PGE.AddParam "mail_qty_override" 

PGE.AddParam "newstand_sale" 

PGE.AddParam "newstand_sale_marker" 

PGE.AddParam "list_cat_namc" 

PGE.AddParam "list_name" 

PGE.AddParam "list_segment_name" 

PGE.AddParam "list_cost_actuai_cpm" 

PGE.AddParam "list_cost_basis" 

PGE.AddParam "list_cost_factor" 

PGE.AddParam "merge_purge_qty" 

PGE.AddParam "e_set_name" 

PGE.AddParam "r_set_name" 

PGE.AddParam "panel_pkg" 

PGE.AddParam "subtotal_flag" 

PGE.AddParam "optional_erTort_td" 

PGEAddParam "rec_id" 

PGE.AddParam "IsDelete" 

objCMD.ActiveConnection = strSQLOLEDB 

objCMD.CommandText = "sp_edit_kcy" 

objCMD.CommandType * adCmdStoredProc 

objCMD.parameters.refresh 

PGE.PostGroupEditsBySP 



<META HTTP-EQUrV="Expires" CONTENT="Mon, 01 Jan 1990 12:00:00 GMT"> 
<meta http-cquiv="pragma" content="no-cache"> 
<meta http-equiv="cache-control" content="no-cache"> 
<title>IMT Network</title> 
<% LorieScripts %> 



</head> 

<body bgco!or="#99CCFF" vlink="000000" link="003366" 



end if 



next 'i 



end if 

%> 



<html> 
<head> 
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onLxad="^j)reloadImages(\Vgraph^ 

*#945899269583y> 

<brxbr> 

<form method="post" action="<% Response. Write L_THIS_FILE %>" name=forml id=forml> 
<input t>pe="HIDDEN" name=" ACTION" VALUE="PANEL"> 
<table width="2500" cellpadding="2"> 
<% prevSclections (6) %> 



<tr valign="top*> 

<tdxfont size="-4" face=" Verdana, Arial, Helvetica, sans-serir> 

Change Panel<br> 

</font> 

<% 

strSQL = "select PANEL_NAME from PANELS where " _ 
& * grp_name = ~& Session("GRP_NAME") & _ 
& " and PRODUCTJD^- & Session("PRODUCT_ID") & _ 
&"andsrc cat_name = '" & Session("SRCCAT_NAME") & "*\ 
& " and source_name = & Session("SOURCE_NAME*') & "'" _ 
& - and Camp_name = '"& Session("CAMP_NAME") & m " 



objRST.open strSQL, strSQLOLEDB, adOpcnStatic, adLockOptimistic 

showQueryListBox objRST, "cmb\3, "SELECT PANEL", Scssion("PANEL_NAME") 
objRST. close 
%> 

<input typc="lMAGE" name="go" value="go" src=".ygraphics/gol222.gir 
W1DTH="33" HEIGHT="16" BORDER=0> 

</td> 
</tr> 
</form> 
</Uble> 

<% 

'Group Edit info 

set GE = new objGroupEdit 
GE.init 

GE.action = "adminkeysrighLasp* 
GE.RowCount = 1 

'Group Edit Show/Hide button • 

if Requestform("SHOWGROUPEDrr) > " " then 

%> <form mcthod="post" action^" <%Response. Write Ijhis Jile %>" id="hidegeform" 

name="hidegeform"> 

<table> 

<tr> 

<td width="20">&nbsp</td> 
<tdxinput type="submit" value="Hide Group Edit" 
name="HIDEGROUPEDrr action="form.submit"x/td> 

<u> 

</table> 
</form> 

<% 

GE.Show = True 

else 

%> <form method="post" action^" <%Response. Write ljhis Jile %>" id="showgeform" 
nam'e="showgcfonn"> 

<table> 

<tr> 

<td width="20">&nbsp</td> 
<tdxinput type="submit" va!ue="Show Group Edit" 
name="SHOWGROUPEDrr action="form.submit"x/td> 

</tr> 

</table> 
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</form> 



<br> <form method="POST action^^/^action 0 /©^ name="Group_Edit_Form" c€!lpadding=="3" 



<% 

GE.Show = False 

end if 

•Key 

•index = GE.Addltem 

'GEfieldTypc index, "NOTAPARAMETER" 
•GEColumnHeader index, "KEY* 

'Key Description 
index = GE.Addltem 
GE.fieldTypc index, "TEXT* 
GE.ColumnHeader index, "KEY DESCRIPTION" 

•Mail Qty 

'index = GE.Addltem 
'GEfieldTypc index, "LABEL" 
'GEColumnHeader index, "MAIL QTY" 

'Mail Qty OverRide / Draw 

index - GE.Addltem 

GE. fieldtype index, TEXT" 

GE.ColumnHeader index, "MAIL QTY OVERRIDE / DRAW" 

'Newsstand Sale 

index = GE.Addltem 

GEfieldtype index, TEXT* 

GEColumnHeader index, "NEWSSTAND SALE" 

'Response Based on Sale or Draw (Newstand Sale Marker) 
index = GE.Addltem 
GE.fieldtype index, "SELECTLOV" 

GE.ColumnHeader index, "RESPONSE BASED ON SALE (Y). DRAW (N)" 
GE.strSQL index, "N,Y" 

'List Category 
index - GE.Addltem 
GE.fieldtype index, "SELECT" 
GE.ColumnHeader index, "LIST CATEGORY" 

GE.strSQL index, "SELECT Iist_cat_name from list_cats where product_id = " & Session("PRODUCT_ID") & 



'List Name 

index = GE.Addltem 

GEfieldtype index, "SELECT" 

GEColumnHeader index, "LIST NAME" 

GEstrSQL index, "SELECT list_name from list_names where product_id « " & Session("PRODUCT_ID") & " 



'List Segment 
index = GE.Addltem 
GEfieldtype index, "SELECT 
GEColumnHeader index, "LIST SEGMENT" 

GEstrSQL index, "SELECT list_scgmcnt_namc from list_segments where product_id = " & 



'ListCPM 

index « GE.Addltem 
GE.fieldType index, "TEXT" 
GE.ColumnHeader index, "LISTCPM" 

'List Cost Basts 

index = GE.Addltem 

GEfieldTypc index, "SELECTLOV" 

GEColumnHeader index, "USTCOST BASIS" 



cellspacing ="3"> 



" order by list_cat_name" 



order by list_name" 



SessionfPRODUCTJD") & " order by list_segment_namc" 
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GE.strSQL index, "Mail Qty, Merge Purge Qty" 

'List Cost Factor 
index = GE.Addltem 
GE.fieldType index, TEXT* 
GE.ColumnHeader index, "LIST COST FACTOR" 

'Merge Purge Qty 

index = GE.Addltem 

GE.fieldType index, TEXT" 

GE.ColumnHeader index, "MERGE PURGE QTY" 

'Expense Set 

index = GE.Addltem 

GE.fieldtype index, "SELECT" 

GE.ColumnHeader index. "EXPENSE SET" 

GE.strSQL index, "SELECT e_set_name from expense_sets where productjd - " & Session("PRODUCT_ID") 
& " order by e_set_name" 

'Revenue Set 
index = GE.Addltem 
GE.fieldtype index, "SELECT" 
GE.ColumnHeader index, "REVENUE SET" 

GE.strSQL index, "SELECT r_sct_namc from revenue_sets where productjd = " & Session("PRODUCTJD") 
& " order by r_set_name" 

'Package 

index = GE.Addltem 
GE.fieldtype index, "SELECT" 
GE.CoIumnHeader index, "PACKAGE" 

GE.strSQL index, "SELECT package_namc from prod_panel_package where productjd = " & 
Scssion("PRODUCT_ID") & " order by package_name" 

'Subtotal Flag 
index = GE.Addltem 
GE.fieldtype index, "SELECTLOV" 
GE.columnHeader index, "SUBTOTAL FLAG" 
GE.strSQL index, "True.False" 

'Optional Effort ID 

index = GE.Addltem 

GE.fieldType index, "TEXT" 

GE.ColumnHeader index, "OPTIONAL EFFORT ID" 

'Page 

GE.MS_Page=l 

'if not(RecCount >=1) then RecCount = 1 
*GE.MS_Table = "panels" 

'GE.MS WhereClause = "where grp_name = " & Session("GRP NAME") & _ 

& " and PRODUCT JD=" & Session("PRODUCTJD") & "" _ 
& " and src_cat_name = '" & Session("SRC_CAT_NAME") & "'" 

& • and source_name = SessionfSOURCE.NAME") & "'" 

' ' & " and Camp_name = '"& Session("CAMP_NAME") & "" 

'GE.MS_OrderBy = " Order by SOURCE_NAME ' 

Display Table 
GE.MS_Pagc = I 
GE.DisplayEditTable 



<table width="2500" cellpadding="2 ,, > 

<tr valign="top"> 

<tdxBR> 

</td> 
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<Ju> 

<tr valign="top"> 
<td colspan-"4" align =,, left"> 
<% keysTable %> 
</td> 
</tr> 
</table> 
</form> 
</body> 
</html> 



Integrated Marketing Technology 



9/27/00 2:22 PM 



Page 87 of 200 






IMT Subscription Marketing Reporting System 



adminsearch.asp 



<%@ Language=VBScript %> 

<!- U include fi!e=\ysupport/gIobal_constants.asp" -> 
<!- U include file^Vsupport/dbConnection.asp" -> 
<!- ^include file=*\ysupport/adoUtils.asp" -> 
<!- # include file=".7support/srcTab.asp" -> 
<!- #include file="../support/JavaScripts.asp" -> 
<!- ^include fiic=^./suppo^t/navigarion.asp' , -> 

<% JSImageFunctions %> 

<HTML> 
<HEAD> 

<% DisplaylMTFrameset %> 

<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0 M > 

<T1TLE> IMT Admin Search </title> 

</HEAD> 

<BODY marginwidth=0 leftmargin=0 marginheight=0 topmargin=0 bgcolor^^CCFF" vlink="#003366" link="#003366"> 
<% LorieScripts %> 

<form method^post" action="AdminSearch.asp" id=form 1 name=form 1 > 
<% 

' Response. Write SESSIONCPID_PHRASE") & "<BR>" 
* our local variables 

p_sel = RequesLFormCP_SEL") 

'pjgrp = RequestFormfp _grp") 

p_titlc = RequesLFormCPjnTLE'') 

p_src_cat = Request.Form("P_SCR_CA*r) 

p~source - Request Fo^m(' , P_SOURCE ,, ) 

p_camp = Request.FormCP_CAMP") 

p_Panei = Request.Form("PJ>ANEL") 
'if pjgrp < " " then 
' p_grp = 
'end if 

if p_title < " " or p_title= "0" then 
pjitle = •%" 
end if 

if p_src_cat < " " or p_src_cat = "0" then 
pjsrc_cat = "%" 
end if 

if p_Source < " " or p_Source = "0" then 
p_Source = "%- 
end if 

if p_camp < " " then 
p_camp = "%" 
end if 

if p_panel < " " then 

pj>anel « "%" 
end if 

if (qu^") then 

qu = 

end if 
%> 

<table> 

<tr> <tr valign="top"> 

<tdxtable> 
<tr> 

<td bgcolor>"003366" height="20" width="140" aJign="center"> 
<div align=*center"> 

<font face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfont sizc=T> 



Integrated Marketing Technology 



9/27/00 2:22 PM 



Page 88 of 200 



IMT Subscription Marketing Reporting System 



TITLE 

</fontx/bx/fontx/d i vx/td> 

<TD align^LEFT^ 
<% 

strSQL = "select DISTINCT TITLE_NAME from CORPJNFO WHERE " & Session(-PID_PHRASE") 
'Response. Write "Pid phrase " & Session(' , PID_PHRASE") 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST, "P_TITLE",6, "SELECT TITLE", pjitle 

objRST.close 

%> 
</td> 
</tr> 
<tr> 

<td bgcolor="003366" height="20" width="I40" a!ign="center"> 
<div align="center"> 

<font face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 

<bxfont size=T> 
SOURCE CATEGORY 
</fontx/bx/fontx/div></td> 
<TDalign="LEFT> 

<% 

strSQL = "select DISTINCT SRC_CAT_NAME from SRC_CATEGORY" 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST, "P_SCR_CAT",6, "SELECT SRC CAT, p_src_cat 

objRST.close 
%> 

</td> 
</tr> 
<tr> 

<td bgcolor="003366" height="20" width="140" aiign="center"> 
<div align="center"> 

<font face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfontsize= s "p> 

SOURCE 

</fontx/b></fontx/divx/td> 

<TD a!ign="LEFT"> 

<% 

strSQL = "select DISTINCT SOURCE_NAME from SOURCE" 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST, "P_SOURCE",6. "SELECT SOURCE", p_Source 

objRST.close 
%> 
</td> 
</tr> 
<tr> 

<td bgcolor="003366* height="20" width=" 140" align="center"> 
<div align="center ,, > 

<font face="Verdana, Arial, Helvetica, sans-serif* color="#FFFFFF"> 
<bxfont size="l"> 
CAMPAIGN 

</fonP</bx/fontx/divx/td> 

<TD align="LEFT"x input type=TEXT name^P^AMP'' value =*<% Response. Write p_camp %>' x/td> 

</tr> 

<tr> 

<td bgcolor="003366" height="20" width=" 140" align="center"> 
<div align="center"> 

<font facc="Vcrdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfont size="l"> 

PANEL 

</fontx/b></fontx/divx/td> 

<TD align="LEFT"xinput typc=TEXT" name="P_PANEL" value -<% Response. Write p_panel %>' x/td> 

</tr> 

</tabIc> 

</xd> 
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</trx/iab!e> 
<br> 

<font face=" Verdana, Aria!, Helvetica, sans-seriP size="-4"> 

Break on</font> 

<br> 

<select name="P_SEL"> 

<% 

dim var(6) 



var(l ^"SOURCE NAME" 
varP^-CAMPAIGN" 
var(3)=" PANEL" 
for i=l to 3 
if (cint(p_sel)=i) then %> 

<option value='<% 

Response. Write i %>* se!ected> 

<% 

Response. Write var(i) 
%> 

</option> 
<% 
else %> 
<option value^^/o 
Response. Write i %>*> 
<% 

Response. Write var(i) 
%> 

</option> 
<% 
end if 
next 
%> 
</sc!ect> 
<p> 

<input type='IMAGE' Value="UPDATE" Name="UPDATE" 
src=".ygraphics/submitl222.gir width="54" heighr=" 1 6" border="0"> 

</p> 

</form> 
<% 

if p_sel > " " then 

SearchResult p_panel, p_camp, p_source, p_src_cat, pjitle, p_sel 

end if 

'Response. Write "query = " & p_sel & " " 
'Response. Write TITLE = " & p title & \ " 
•Response.Write "SRC CAT = • & p_src_cat & " 
Response. Write TITLE = " & p_source & " 
♦Response. Write "<BR>CAMP= " & p_camp & ", " 
Ttesponse. Write "PANEL = ■ & p_panel & " " 

' if sel="SOURCE CATEGORY" then 

'SrcCatSearchResult p_src_cat, p_title, p_grp 
'elseif scl ="SOURCE NAME" then 

*SourceSearchResult p_source, p_s repeat, p_title, p_grp 
'elseif sel="CAMPAIGN" then 

'CampScarchResult p_camp, p_source, p_src_cat, pjitlc, p_grp 

'elseif sel="PANEL" then 

•PanelSearchResult p_pancl ,p_camp, p_source t p_src_cat, pjitle, p_grp 



%> 



</BODY> 
</HTML> 



Integrated Marketing Technology 



9/27/00 2:22 PM 



Page 90 of 200 



© • # 

IMT Subscription Marketing Reporting System 



Integrated Marketing Technology 



9/27/00 2:22 PM 



Page 91 of 200 





IMT Subscription Marketing Reporting System 



adminsearch2.asp 



<%@ Language^ VBScript %> 

<!- ^include fiIc=".ysupport/globai_constants.asp'' -> 
<!- # include file=\ysupport/dbConnection.asp" -> 
<!- ^include file=".ysupport/adoUtils.asp" -> 
<!- # include file=".7support/srcTab.asp" -> 

<HTML> 
<HEAD> 

<META NAME^GEKERATOR" Content="Microsoft Visual Studio 6.0"> 

<TTTLE> IMT Admin SEARCH 2</title> 

</H£AD> 

<BODY> 

<form mcthod="post" action="" id=forml name=form 1 > 

<% 1 our local variables 

sel = RequestForm("SEL") 

p_grp = Request Form("p_grp") 

pjitle - RequesLForm("p_tiile") 

p_src_cat = Re quest Form ("p_src_cat") 

p_source = Request Form("p_sourcc") 

p_camp = RequestForm("p_camp") 

p_Panel = Request FormCp^paneO 
if p jgrp < " " then 

pjgrp = 
end if 

ifp title <"" then 
pjitle = 
end if 

ifp_src_cat< " " then 
p_src_cat = "%" 
end if 

if p_Source < " " then 
p_Source = 
end if 

if p_camp <" " then 
p camp a "%" 
end if 

if p_panel < • " then 

p_panel = 
end if 

if (qu="-) then 



end if 

%> 

<table> 

<trxtd> Product Group<Ad> 

<tdxinput typc=TEXT name="p_grp" value -<% Response. Write p^grp %>' x/td> 
</tr> 

<trxtd>TitJe Name</td> 

<tdxinput type="TEXT* name^-p Jitle" value =*<% Response. Write pjitle %>' x/td> 
</tr> 

<trxtd> Source Category </td> 

<tdx input type="TEXT' name="p_src_cat" value ~<% Response. Write p_srccat %>' x/td> 
</tr> 

<trxtd> Source </td> 

<tdxinput tyr^'TEXT' namc="p_sourcc" value ~<% Response. Write p_source %>' x/td> 
</tr> 

<trxtd> Campaign </td> 

<tdxinput type=*TEXT name="p_camp" value =*<% Response. Write p_camp %>' x/td> 
</tr> 

<trxtd> Panel </td> 

<tdxinput type=TEXT*' name="p_j5anel" value =*<% Response. Write p_panel %>' x/td> 
</tr> 



qu = "%" 
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</tablc> 

<br>Brcak on<br> 
<select name="SEL"> 

<% 

dim var(6) 

var(0) = "PRODUCT GROUP" 
var(I)=-TrrLE NAME" 
var(2)="S0URCE CATEGORY" 
var(3)="S0URCE NAME" 
var(4)="CAMPAIGN- 
var(5)="PANEL" 
for i=0 to 5 

if (scl=var(i)) then 
Response. Write "<option selected>" & var(i) & "</option>" 

else 

Response. Write "<option>" & var(i) & "</option>" 
end if 
next 
%> 
</select> 
<br> 

<input type="submit" id=submitl name=submitl> 
<br> 

</form> 
<% 



Response. Write "qu = " & p_ap & " 
Response. Write p_title & \ " 
Response. Write p_src_cat & " 
Response. Write p_source & ", " 
Response. Write p_camp & ", " 
Response. Write p_panei & " " 
Response. Write \ sel= " & Request. Form("S EL") 
if sel « "PRODUCT GROUP" then 
GrpSearchResult p_grp 
eiseif sel = "TITLE NAME" then 

ProductSearchResult p title, p_grp 
eiseif sel="SOURCE CATEGORY" then 

SrcCatSearchResult p sre cat, p title, pj»rp 
elscif sel ="SOURCE NAME" then 

SourccSearchRcsult p source, p src_cat, p_title, p_grp 
eiseif sel="CAMPAIGN" then 

CampScarchResult p camp, p source, p_src_cat, p title, p_ J grp 
eiseif scl="PANEL" then 

PanelSearchResult p_pancl ,p_camp, p_source, p_src_cat, p_title, p_grp 

end if 

%> 

</BODY> 
</HTML> 
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allsetupta bs.asp 

<%@ Language=VBScript %> 

<!- U include file='.Vsupport/global_constants.asp" -> 

<!- ^include file=".ysupport/dbConnection.asp" -> 

<!— ^include file=".Vsupport/adoUtils.asp" — > 

<!— U include fiIe=".Vsupport/srcTab.asp" — > 

<!— ^include file=".7support/navigation.asp" — > 

<% JSlmageFunctions %> 

<% 

Ijhisjile ="allSetuptabs.asp" 
Session("refer_page") = "allSetupTabs.asp" 
Session("refer_Tillc") = "Set up Table Selection Screen" 

if (Request.Form("setupTab")o "0" _ 

and Request.Form("setupTab") > " ") then 

Response. Redirect(RequesLForm("setupTab")) 
end if 

mystrSQL - "select access Jevel from gateway.dbo.usr_access where login = '" & Session("U") & "'" & ■ and productjd * 
0" & Session("Product_id") 

objRST.open mystrSQU strSQLOLEDB, adOpenStatic, adLockOptimistic 
if not objRST.eof then 

Session("USR_ACCESS") = objRST(O) 

else 

Session("USR_ACCESS") = "None" 

end if 

objRST.close 

checkSessionVars(2) 

select case Session("USR_ACCESS") 
case "User" 

Can Use Admin = "false" 
case "Manager" 

CanUseAdmin = "True" 
case "Supervisor" 

CanUseAdmin - "True" 

case else 

CanUseAdmin = "false" 

end select 

if CanUseAdmin = "false" then Response. Redirect "NoSetupRights.asp" 

%> 

<HTML> 
<HEAD> 

<% DisplaylMTFrameset %> 

<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> 
</HEAD> 

<BODY marginwidthN) leftmargin=0 marginheight=0 topmargin=0 bgcolor~"#99CCFF" vlink="#003366" link="#003366"> 
<form method="post" action="<%Response. Write l_this_fi!e %>" id="form2" name="form2"> 
<% setupTableListBox !_this_file %> 

</form> 

<P> </P> 

</BODY> 
</HTML> 
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a vail. asp 

<%@ Unguagc= VBScript %> 

<!- #include file=\ysupport/globaJ_constants.asp" -> 
<!- ^include fiic="../support/dbConnection.asp" -> 
<!- ^include fiIe=".7support/adoUiils.asp" -> 
<!- tfinclude fiIe="../support/srcTab.asp'* -> 
<!- ^include fi!e=".ysupport/keys.asp" -> 
<!- Sinclude ftlc^^.ysupport/navigation.asp 0 — > 

<% JSImagcFunctions %> 

<% 

l_this_filc = "avail.asp" 

if not ( session("Product_id") > " " ) then 
Response.Redirect("admin2a.asp?FR=" & l_this_file ) 
end if 

%> 

<html> 
<head> 

<title>IMT Network</titie> 
</head> 



<% 

' l_AvailCount = RcquesLFofmCAVAJLCOUNT") 

' Response. Write "availCount = " & I_availcount & "<br>" 

'on error resume next 

dim l_query 
dim l_pos(10) 
dim l_display 

l_display = RequestForm( ,, DISPLJ\Y' , ) 
l_query = " select ru!l_promo_key MY_K£Y, RECJD " 
& * from avaiMceys " 

& • where Productjd = " & session("PRODUCTJD*') 



l_query = " select fu!l_promo_key MYJCEY, RECJD " _ 
& " from avaiMceys " _ 

& - where Product_id = " & sessionCPRODUCTJO") 
'& ■ and source_identifier = " & sessionCSRCJNDICATOR'') & - • 
ORderby = " Order by " 

fori = 1 to 10 

Lpos(i) " RequestformCKeyPosition" & i) 
if ljxK(i) > " " then 
•SQL 

l_query = Lquery & " and POSITION" & i 
& " « '" & RequesLFormO'KeyPosition , ' & i) & 
'Order by clause 

mnMe = true 

end if 

OrderBy = OrderBy & " Position" & i & " 

next 



if (RequesLFormfrunMe") = "1" ) then 
runMe = true 
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end if 



Orderby = ORderby & " FuH_Promo_key " 



, if(l_pos(l)<--)thcn 



1_pos(l) = SessionfSRCJNDICATOR") 
Lquery = Lquery & " and POSITION I " 
& I_pos(I)&- t - 



end if 



l_query = I_qucry & " " & OrderBy * 



%> 



<% if Rcquestfadd-Jp" 1 " then %> 

<body bgcoloi=-#99CCFF" vlink="000000" I ^-="003366" 
marginwidth^O" marginheight="0" leftmargin="0" topmargin="0" 
onLoad="refreshO;"> 

<% DisplaylMTFrameset %> 

<% else %> 

<b<>dy bgcolor^'WOOFF'' vlink="000000" link^'003366" 
marginwidth="0" marginheight="0" leftmargin="0" topmargin="0" > 



<% DisplaylMTFrameset %> 

<% 
end if 
%> 



<tab!e width="l85" ccllpadding="2"> 
<tr> 

<td colspan="3" height="39" width»"!52"> 
<% keySearchBoxes Ijxw.I Jhisjile, false %> 

<tr vaIign="top" align-"righf > 
<td colspan="4"> 

<div align="left"xbr> 

</div> 

<div align="left''x/div> 
<p> 

</form> 

<form mcthod="post" action="<% Response. Write L_THIS_F1LE %>" name="myForm" id=form I > 

<%fori = ltolO%> 
<input type^-HIDDEN" 

name="KeyPosition<% Response. Write i %>" 
valuc="<% Response, write l_pos(i) %>"> 



<tr> 

<idwidth»"l62 l, > 

<font face=" Verdana, Arial, Helvetica, sans-serif co!or="#FFFFFF"> 
<font size^-l" color="#000000"> 
Product <bx% 

Response.writc Session( w nTLE_NAME") & & Session("PRODUCT JD") 
%></b> 
</fontx/font> </td> 
</tr> 
<tr> 



<% next %> 



</p> 



</td> 
</tr> 
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<td width="I62"> 

<font facc="Vcrdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<font size="l - coloi="*000000"> 

<A HREF="/lmtAdmin/admin2a.asp?Fr=<%Response. Write l_this_fi!e %>"> 
Change Product Id </a> 
</b> 

</fontx/font> </td> 
</tr> 
<tr valign="top"> 

<td colspan="4" align="Icft"> <br> 

<input typc^HIDDEN" name=" DISPLAY" value-" 1"> 

<% 

'Response. Write l_query & "<BR>" 
ifl_display = "Pthen 

AvailKeysTable(l_query) 
end if %> 



</td> 
</tr> 
</table> 
</form> 
</body> 
</html> 
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drill. asp 



<%@ Unguage=VBScript %> 

<!- U include filc=".7support/globaJ_cbnstants.asp" -> 

<!- ^include file=\ysupport/dbConnection.asp" -> 

<!- U include file="../support/adoUti!s.asp" -> 

<!- ^include ftle=".7support/drillLib.asp w -> 

<!- # include file^-.Vsupport/navigation.asp" -> 

<% JSImageFunctions %> 

<HTML> 
<HEAD> 

<META NAME="GENERATOR" Content=**Microsoft Visual Studio 6.(T> 
</HEAD> 

<BODY marginwidth=0 lcftmargin=0 marginheight=0 topmargin=0 bgcolor^'WCCPF' vlink="#003366" link="#003366"> 



<% DispIaylMTFrameset %> 

<font face=" Verdana, Anal, Helvetica, sans-senT size=M"> 
<h3>Fast Find</h3> 
<^o^ession("PlDJ>HRASE") %> 

<form mclhod="post" action^drill.aspScur" id="form2" name="form2"> 

<% printList l,"x"%> 

</form> 

</FONT> 

</BODY> 

</HTML> 
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drillbounce.asp 

<%@ Language^ VBScript %> 

<!- ^include file=\./support/global_constants.asp" -> 

<!— U include file=\./support/dbConnection.asp" — > 

<!- ^include file=\./support/adoUtils.asp" -> 

<!- ^include fiIc="../support/drilILib.asp" -> 

<% 

Mcvcl = RequesLQuerySlringCY") 
l_recjd = Request.QueryString("Z") 
l_option = request QucryStringCO") 



if IJevel = 1 then 
mySql = "select grp_name " _ 

&. " from v_grp_names " _ 
& " where min_rec_id = " & l_rec_id 
ObjRST.open mySql, strSQLOLEDB, adOpenStatic, adLockOptimistic 
if not ObjRST.EOF then 

SessionfGRPJUME") = objRST.Fields(O) 

end if 

ObjRST.close 

elseif IJevel -2 then 

mySql = "select grp_name, product Jd, title_name " _ 
& " from corpjnfo " _ 
& " where rec Jd = " & l_rec_id 
ObjRST.open mySql, strSQLOLEDB, adOpenStatic, adLockOptimistic 
if not ObjRST.EOF then 

Session("GRP_NAME") = objRST.Fields(O) 
SessionfPRODUCT !D") = objRST.Fields(l) 
SessionCTITLE_NAME") = objRST.Fields(2) 

end if 

ObjRST.close 

elseif IJevel = 3 then 

mySql = "select grp_name, productjd, titlc_name, SRC_CAT NAME " _ 
& " from SRCCATEGORY * _ " 
& " where rec_id = " & l_rec_id 
ObjRST.open mySql, strSQLOLEDB, adOpenStatic, adLockOptimistic 
if not ObjRST.EOF then 

Session("GRP_NAME") = objRST.Fields(O) 
Session("PRODUCT_ID") = objRST.Fields(I) 
Session(*nTLE NAME") - objRST.Fields(2) 
Session("SRC_CAT NAME") = objRST.Fields(3) 

. end if 

ObjRST.close 

elseif IJevel = 4 then 

mySql = "select grp_name, productjd, title_name, SRC_CAT_NAME; Source_name, SRCJNDICATOR "_ 
& "from Source " _ 

&" where recjd = "& l_recjd 

ObjRST.operTmySql, strSQLOLEDB, adOpenStatic, adLockOptimistic 
if not ObjRST.EOF then 

Session("GRP_NAME") = objRST.Fields(O) 
SessionfPRODUCT ID") « objRST.Fields(l) 
ScssionCTTTLE NAME") =» objRST.Fields(2) 
Session("SRC CAT_NAME") = objRST.Fields(3) 
SessionfSOURCE NAME") = objRST.Fields(4) 
Session("SRCJND7CATOR") = objRST.Fields(S) 

end if 

ObjRST.close 
elseif IJevel - 5 then 

mySql = "select grp_name, productjd, title_name, SRC_CAT_NAME, Sourcc_namc, SRCJNDICATOR, CAMP_name " 
& "from Campaigns " _ 

& " where rec id = " & I rec id 
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ObjRST.open mySql, strSQLOLEDB, adOpenStatic, adLockOptimistic 
if not ObjRST.EOF then 

Session("GRP NAME") = objRST.Fields(O) 
Scssion("PRObUCT_ID") = objRST.Fields(l) 
Scssion(TrTLE_NAME") = objRST.Fic!ds(2) 
ScssionfSRC CAT_NAME") = objRST.Ficlds(3) 
Session("SOURCE_NAME") = objRST.Fidds(4) 
Session("SRCJNDlCATOR") = objRST.Fields(S) 
Session("CAMP_NAME") = objRST.Fields(6) 

end if 

ObjRST.closc 



else if Mevel = 6 then 

mySql = "select grp_name, productjd, title_name, S RC_C AT_N AM E, Source_name, SRC_fNDICATOR, CAMP_name, 
Panel_name 

& "from Panels " _ 

& " where recjd = " & l_rec_id 

ObjRST.open mySql, strSQLOLEDB, adOpenStatic, adLockOptimistic 
if not ObjRST.EOF then 



ScssionfGRP NAME") = objRST.Fields(O) 
Session("PRODUCT_ID") = objRST.Ficlds(l) 
Session(*Tn*LE_NAME") = objRST.Fields(2) 
Session("SRC_CAT_NAME") = objRST.Fie!ds(3) 
Session("SOURCE_NAME'*) = objRST.Fields(4) 
Session("SRC_INDICATOR") = objRST.Fields(5) 
Session("CAMP NAME") = objRST.Fie!ds(6) 
Session("PANEL_NAME") = objRST.Fields(7) 



else 
isBad - true 
end if 



if not isBad then 
ifl_oplion = "EDIT" then 
if Mcvel = 4 then 

Response. Redirect "editSource.asp?Z= H & l_rec_id 
elseif level = 5 then 

Response.Redirect "editCamp.asp?Z=" & l_rec_id 
elseif I level = 6 then 



end if 
else 

ifljevel = 6then 

Response. Redirectf AdminfCeys.htm") 

else 

Response. Red irectfadm in" & (Mcvel + 1) & "a.asp") 

end if 
end if 



end if 

ObjRST.close 



Response.Redirect "editPanel.asp?Z=" & l_rec__id 



end if 



%> 
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edit autosetup.asp 

<%@ Language=VBScript %> 
<!- # include file=".7support/global_constams.asp" -> 
<!- # include fi!e=".7suppon/dbConnection.asp" -> 
<!- # include file="../support/adoUtils.asp" -> 
<!- # include fiIe = ="../support/srcTab.asp" -> 

<% 

If Request Form("UPDATE.x") o then 

l_button « "Update" 
elself Requestform( ,, DELETE.x") o "" then 

l_button = "Delete" 
end if 

I_rec_id = Request QucryString("Z") 

'Response. Write l_rec_id 

If (IsNumeric( I_rec_id) ) then 

if l_button = "Update" or l_button = "Delete" then 

l_action = true 

'l_src_cat_name = Request Form(" P_SRC_CAT_N AME") 
l_src_ind = Request Form("P_SRCJND") 
l_source = RcquestForm("P_SOURCE") 

*response.write(l_source) 

objRST.open "select src_cat_name from source where sourcc_name = '" & l_source & "\ strSQLOLEDB, adOpenStatic, 
adLockOptimistic 

if not objRST.eof then l_src_cat_name = objRST(0) else l_src_cat_namc = "UNNASSIGNED" 
objRST.close 

if l_src_cat_name = "UNNASSIGNED" then l_source = "UNNASSIGNED" 
'res ponse.wri te(l_src_cat_name) 

l_valid_from = Request Form("P_VALID_FROM") 
f validto = RequestFo^m("P_VALID_TO■ , ) 

'response. write (I_vaiid_to & " < fjdksal;fjdksl;a jfkdl Jas fkdl;saj fkd fdjksal; fjdksal;fj dk sl;fasjl; ") 

i_sctup_mask = RequestForm("P_SETUP_MASK") 

'response. write(l_setup_mask) 

l_e_set_namc = RequestForm("P_E_SET_NAME") 

if l_e_set_name = "0" then l_c_set_name = null 

IJogin - Session("U") 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit_autosetup" 
objCMD.CommandType = adCmdStoredProc 
objCM D. Parameters. Refresh 
objCMD.Parameters(l). Value = l_src_cat_name 
objCMD.Parameters(2). Value = l_srcjnd 
objCMD.Parameters(3). Value = I_source 
objCMD.Parameters(4). Value = I_valid_from 

objCMD.Parameters(5).value = l_va!id_to 

objCMD.Parameters(6).valuc = l_sctup_mask 

objCMD.Parameters(7). value = l_e_set_name 

objCMD.Parameters(8).value « IJogin 

objCMD.Parameters(9).value = cint(l_rec_id) 
if ^button = "Delete" then objCMD.Parameters( 10). Value = I else objCMD.Parameters( 10). Value = 0 
Set TcmpNonSessionVar * objCMD.ExecuteO 
Response. Redirect "tabautosetup.asp" 
I_action = true 
else 

l_action « false 

strSQL = "select src_cat_name, src_indicator, sourcc_namc, valid_from_date, valid_to_date, setup_mask, e_set_name " & _ 
" from autosetup_scheme " & _ 

" where recjd = " & l_rec_id 
ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If not objRST.EOF then 

l_src_cat_name = ObjRST("src_cat_name") 
l_srcjnd~= ObjRST("src_indicator") 
l_source = ObjRST("source_name") 
l_valid_from = ObjRST("valid_from_date") 
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l_valid_to = ObjRST("valid_to_datc-) 
f setup_mask = ObjRSTfsetupjnask") 
l_e_set_name = ObjRST("c_sct_name") 

end if 

ObjRSTxlose 

end if 
end if 



%> 
<html> 
<head> 

<titfe>edit_autosetup.asp</titIe> 
</head> 

<body bgcolor= ,, #99CCFF- vlink="00000(T link="003366"> 

<form method="post" action="edit_autosetup.asp?Z=<%Respons€. Write l_rec_id %> " id=forml name=forml> 
<table width="640" border="(T ccllpadding="2"> 
<% prevSelections(3) %> 



<tr valign="top' , > 

<td align="ieft" width="640" colspan="3"ximg src="../graphics/editl222.gir width="27" height^ 1 4"x/td> 
</tr> 

<lr valign="top*> 
<ld align="ieft" widih="640" colspan=* , 3"> 
<table width="500 w borden^U" cellspacing^" ccllpadding="2"> 
<tr valign="top"> 
<td height="25" align="lefV> 
<div align="left"x/div> 
</td> 

<td height="25" align="lerT> 

<input type^lMAGE* Vaiue^UPDATE" Name="UPDATE" 
src=\./graphics/submit 1222.gif" width="54" height="16" border="0"> 
<img src=".Vgraphics/blank t222.gif width="20" heights" 1 6" border=0> 
<input typc='IMAGE' Value="DELETE" Name^DELETE" 
src= n .7graphics/delete 1 222.gif width^^" height=" 1 6" border=0> 
<%' <input type-IMAGE' Value^DELETE" Name=" DELETE" 

, src=".7graphics/deletel222.gir width="53" hcight="16" border-0> %> 
<font face="Verdana, Arial, Helvetica, sans-serif size=M"> 
<a href=="labautosetup.asp">Return to Auto-Setup table</ax/fontx/td> 
</tr> 

<tr> 

<td bgcolor="003366" height="20" width="140" align="center"> 

<div aJign="ccnter"> . . 

<font face="Verdana, Arial, Helvetica, sans-serif* co!or="#FFFFFF"> 

<bxfont size="l"> 

SOURCE NAME 

</fontX/bX/fontx/div> 
</td> 

<td bgcolor="#99CCFP height="20" width="360" align="lerr> 
<div aJign="iett"xfont face=" Verdana, Arial, Helvetica, sans -scrip color="#FFFFFF"xbxfont size="l" 
color="#000000"> 

<%if not l_action then 

strSQL = "select U_SOURCE_NAME FROM Sourccjescriptions " 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryUstBox objRST, "P_SOURCE",6, "SELECT SOURCE", l_source 
ObjRSTxlose 

else 

Response. Write l_source 

end if %> 

</fonix/bx/fontx/div> 

</td> 

</tr> 
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<tr> 

<td width="140" bgcolor="#003366" height="20" align^center^ 
<div align="center"xfont face=" Verdana, Aria], Helvetica, sans-serif color="#FFFFFF"><bxfont size="l">SOURCE 
INDICATOR </fontx/bx/fontx/div> 
</td> 

<td width="360- bgcolor="#99CCFF" height="2(T align="Ieft , '> 
<div align="left"xfont face=" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"xbxfont size="r 
color="#00000(T> 

<%if not l_action then %> 

<input type=TEXr NAME- P_SRC_rND' 

id=0 vaIue="<%Response. WriteT_src_ind %>" maxlength="30" size^*^ 

<% else 

Response.Write 1 sre ind 

end if %> 

</fontx/bx/fontx/div> 

</td> 
</tr> 

<tr> 

<td width="140" bgcolor= ,, #003366 , • height="2(r align="center"> 

<div align="center"xfont face="Verdana, Arial, Helvetica, sans-serir color="#FFFFFF f 'xbxibnt size=" 1"> VALID 

FROM 

</fontx/bx/fontx/div> 

</td> 

<td width= H 360- bgcolor="#99CCFF" height="2<r align="lett"> 

<div align="!errxf 0 nt face=" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"xbxf 0 nt size=" 1 " 
color=*#000000 H > 

<%if not l_action then %> 

<input type=TEXT" NAME- P_VALID_FROM' 

id=0 value="<%Response.Write I valid_from %>" maxlength=**30" 

sizc="l5" widih="3(T> 

<%else 

Response.Write l_valid_from 

end if %> 

</fontx/bx'fontx/div> 

</td> 

</tr> 
<tr> 

<td width="14(T bgcolor="#003366" height="20" align="c€nter"> 

<div align="center"xfont face=" Verdana, Arial, Helvetica, sans-serir 

co!or=*'#FFFFFF , 'xbxfont size^" I "> VALID TO 

</fontx/bx/fontx/div> 

</td> 

<td width«"360" bgcoIor^fWCCFF" height="20" align="left"> 
<div align="left"xfont face=" Verdana, Arial, Helvetica, sans-serir 
color="#FFFFFF"><bxf 0 nt sizc-T color="#00000<T> 

<%if not l_action then %> 

<input typc="TEXT" NAME- P_VALID_TO' 

id=0 vaIuc="<%Response. Write l_validjo %>" maxlength="30" size="l5"> 

<% else 

Response.Write I valid_to 

end if %> 

</fontx^x/fontx/div> 

</td> 
</tr> 

<tr> 

<td width="140" bgcolor="#003366" height="20" align="center"> 

<div align='center"xfont facc=" Verdana, Arial, Helvetica, sans-serir 

color="# FFFFFF'xbxfont size=" I ">SETUP MASK 

</fontx/bx/f 0 ntxydiv> 

</td> 

<td width="360* bgcolor="#99CCFF" height-"2(T align="lefV> 
<div aIign="left"xfont face=" Verdana, Arial, Helvetica, sans-serir 
color=*WFFFFF-xbxfont size=" 1 - color=-#000000"> 

<%i f not l_action then %> 

<input type-TEXT NAME- P_SETUP_MASK' 
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id=0 value- - <%Response. Write l_setup_mask %>" maxlength="30" 

size="15 M > 

<%else 

Response.Write l_setup_mask 

end if %> 

</fonP^/bx/fonP</div> 

</td> 
</lr> 

<tr> 

<td width="140" bgcolor=-#003366" hcight="20" align^center^ 

<div align="center"xfont face=" Verdana, Arial, Helvetica, sans-serir 
color="#FFFFFF-xbxfont size="l">EXPENSE SET ' 

</fontx/bx/fontx7div> 

</td> 

<td width="360- bgcolor="#99CCFF" height="20" aligns" left"> 
<div a!ign="left"xfont face=" Verdana, Arial, Helvetica, sans-serir 
colors FFFFFF"xbxf on t size=T color="#000000"> 

<%if not l_action then 

strSQL = "select e_set_namc FROM expense_sets where product_id = " & 

SessionfPRODUCTJD") & " order by e_set_name " 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "P_E_SET_NAME",6, "SELECT EXPENSE 

SET", l_e_set_name 

objRST.close 

else 

Response.Write l_e_set_namc 

end if %> 

</fontx/bx/fontx/div> 

</td> 
</tr> 
</tablc> 
</td> 
</tr> 
</tab!e> 
</form> 
</body> 
</html> 
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edit campaign dcf.asp 



<%@ Language^ VBScript %> 
<!- # include file=".7support/globaI_constants.asp" -> 
<!- #include filc=".Vsupport/dbConncction.asp" -> 
<!— ^include file^.ysupport/adoUtils.asp" — > 
<!— ^include file= - .7support/srcTab.asp" — > 



If RequestForm("UPDATE.x") o "" then 

l_button = "Update" 
elself Requestform("DELETE.x") o "" then 

l_button = "Delete" 
end if 

!_rec_id = RequesLQueryString("Z") 

'Response. Write l_rec_id 

If (lsNumeric( l_rec_id) ) then 

if l_button = "Update" or l_button = "Delete" then 

l_action = true 

l_campaign_code = Request Form("P_CAMPAIGN_CODE") 

l_campaign_dcscription = Request form("P_C AM PAIGN_DESCRJPTION") 

l_src_cat_name = Request. Form (" P_S RC_C AT_N AM E" ) 

if not (l_src_cat_name > " ") then l_src_cat name = "Undefined" 

l_campaign_datc = Request form("P_CAMPAIGN_D ATE") 

if not(l_campaign_date > " ") then l_campaign_date = null 

l_panel_schcme = Request form("P_P AN EL_SCHEME") 

if I _panel_scheme = "0" then l_pancl_schcmc ~ "" 

IJogin = Session("U") 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit_autosetup_campaign_deP 
objCMD.CommandType = adCmdStoredProc 
objCMD. Parameters. Refresh 
objCMD.Parameters( I ). Value = I_campaign_code 
objCMD.Parametcrsp). Value = I_campaign_description 
objCMD.Paramcters(3). Value = l_src_cat_name 
objCMD.Parameters(4). Value - I_campaign_date 

objCMD.Parameters(5). Value - l_panel_scheme 

objCMD.Parameters(6).vaIue = cint(l_rec_id) 
if l_button = "Delete" then objCMD.Parameters(7). Value = 1 else objCMD.Parameters(7). Value = 0 
Set TempNonSession Var = objCMD.ExecuteO 
Response. Redirect "tabautosetup.asp" 
l_action = true 
else 

Inaction - false 

strSQL = "select campaign_code, campaign_description, src_cat_namc, campaign_date, panel_scheme " & _ 
" from autosetup_campaign_def " & _ 

" where rec_id = " & l_rec_id 
ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 



l_campaign_code = objRST("campaign_code") 
I_campaign_description = objRST("campaign_description") 
l_src _cat_name = objRST("src_cat_name") 
l_campaign_date = objRST("campaign_date") 
l_panel_schcme = objRST("paneI_scheme") 



end if 

ObjRST.close 

end if 
end if 



%> 
<html> 
<head> 

<titIc>edit_autosetup_campaign_def.asp</tiUe> 
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</hcad> 

<body bgcolor^"#99CCFF w vlink="000000* link="003366"> 

<form method="post" action-"edit_campaign_def.asp?Z=<%Responsc. Write l_rcc_id %> " id=forml name=forml> 
<tablc width="640" border="0" ccllpaddingr 1 ^^ 



<tr valign="top"> 

<td align="lett" width="640" coIspan="3"ximg src=\ygraphics/editl222.gif width^^" height="14"x/td> 
</tr> 

<tr vaiign="top"> 
<td align="lcft" width="640" co!span="3"> 
<tablc width="500" border="0" cellspacing="3" cellpaddingr^^ 
<tr valign="top*> 
<td hcight="25 w align=."lcft"> 
<div align="lefrx/div> 
</td> 

<td hcight="25" aIign="lefV> 

<input type- IMAGE 1 Value^UPDATE* Nan^'UPDATE" 
src=". ./graphics/submit I222.gif width^-54" height="16" border="0"> 
<img src=".Vgraphics/blank 1222.gif width="20" height="16" border=0> 
<input type='IMAGE' Value="DELETE" Name=" DELETE" 
src="../graphics/deleteI222.gif width="53" heighr="16* bordcr=0> 
<%' <input type- IMAGE' Value=" DELETE" N am e=" DELETE" 

Vc=".ygraphics/delete I222.gif width="53" hcight=' t I6" border=0> %> . 
<font face=" Verdana, Arial, Helvetica, sans-serif size=' , -4"> 
<a href='*tabautosetup.asp' , >Retum to Auto-Setup table</ax/fontx/td> 
<Ar> 

<tr> 

<td bgco1or="003366" height="20 n width="14(r align="center"> 
<div align="center"> 

<font face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfont size=" 1 "> 
CAMPAIGN CODE 
</fontx/bx/fontx/div> 
</td> 

<td bgcolor="#99CCFF" height="20" width="360" align-left*^ 

<div align="left"><font face=" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF , *xbxfont size-"!" 
color="#000000"> 

<%if not l_action then %> 

<input type=TEXT" NAME='P_CAMPAJGN_CODE' 

id j =O vaIue="<%Response. Write l_campaign_code %>" maxlength="30" 

size="6"> 

<%else 

Response. Write l_campaign_code 

end if %> 

</fontx/bx/fontx/div> 

</td> 

</tr> 

<tr> 

<td width="l40" bgcolor="#003366'* height="20" align="center-> 
<div align="center"xfont face^" Verdana, Aria!, Helvetica, sans-serif color="#FFFFFF"xbxfont size=T>CAMPAJGN 
DESCRlPT!ON</fontx/bx/fontx/div> 
</td> 

<td width="360" bgcolor="#99CCFF" height="20" align="lefV> 
<div aJign^leffxfont face=" Verdana, Arial, Helvetica, sans-serif coIor="#FFFFFF"xbxfont size="l" 
color='#000000"> 

<%if not !_action then %> 

<input typc=TEXT" NAME- P_CAMPAJGN_DESCRIPTlON' 
td=0 vaJuc^-^Response. Write l_campaign_description %>" 

maxlength="100" size=" 100" 

<% else 

Response. Write l_campaign_description 

end if %> 
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</fontx/bx/fontx/div> 

</td> 
</lr> 

<tr> 

<td width="I4(T bgcolor="#003366" heigh t="20" align="center"> 

«liv aIign="ccnicr"xfont face-" Verdana, Arial, Helvetica, sans-serif color="#FFFFFPxbxfont size="I">SOURCE 
CATEGORY 

</fontx/bx/f 0 ntx/div> 

</td> 

<td width="360- bgco!or="#99CCFF" height="20" align="lett"> 
<div aIign="Ieft"xfont face="Verdana, Arial, Helvetica, sans-serif colors FFFFFF'xbxfont size="l" 
color="#000000"> 

<%if not l_action then 

'<input type=TEXT N AME- P_S RC_CAT_N AME' 

strSQL - "select distinct src_cat_name from source where product Jd = " & 

Session("PRODUCT_ID") & " order by src_cat_name" 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBoxobjRST, "P_SRC_CAT_NAME",6, "SELECT SOURCE 

CATEGORY*, l_src_cat_name 

objRST.close 

*id=0 value="<%Response. Write I_source_identificr " maxlengih="30" 

size="6"> 

else 

Response. Write l_src_cat_name 

end if %> 

</fontx/bx/fontx/div> 

</td> 

</tr>- 
<tr> 

<td width="140" bgcolor="#003366" height="20" aiign="ccnter"> 

<div align="center"xfont face=" Verdana, Arial, Helvetica, sans-serif 
color="#FFFFFF"xbxfont size=" 1 ">CAMPA1GN DATE 

</fontx/bx/fontx/div> 

</td> 

<td width="360" bgcolor^QQCCFF" height="20" align="left"> 
<div align^leffxfont face=" Verdana, Arial, Helvetica, sans-serif 
color="#FFFFFF"><bxfbnt size=" 1 * color="#000000"> 

<%if not l_action then %> 

<input type="TEXT" NAME- P_C AMP AIGN_D ATE' 

id=0 vaIue="<%Response. Write l_campaign_date %>" maxlcngth= M 30" 

size="30"> 

<% else 

Response. Write l_campaign_date 

end if %> 

</fontx/bx/fontx/div> 

* </td> 
</tr> 

<tr> 

<td width="l40" bgcolor="#003366" rteight^"20" align="center"> 
<div align-"center"xfont face="Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size="l">PANEL 
SCHEME 

</fontx/bx/fontx/div> 

</td> 

<td width="360" bgcolor="#99CCFF" height="20" align="left"> 
<div align="leffxfont facc=" Verdana, Arial, Helvetica, sans-serif cotor="#FFFFFF"xb><font size="l" 
color=-#000000"> 

<%ifnotl action then 

~<input type="TEXr N AME- P_S RC_CAT_N AM E' 
strSQL = "select distinct panel_scheme from autosetup_panel_def where 
productjd = " & Session("PRODUCT_ID") & " order by panel_scheme" 

objRSTx>pen strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "P PANEL_SCHEME",6, "SELECT PANEL 

SCHEME", lj>anel_scheme 

objRST.close 
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'id=0 vaJuc="<% Response. Write l_source_identifier " maxlength-"30" 

r> ■ 

else 

Response.Write I_panel_schcme 

end if %> 

</fonP</bx/fontx/div> 

</td> 

</tr> 



<Aable> 
</td> 
</tr> 
</table> 
</form> 
</body> 
</html> 
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edit panel def.asp 

<%@ Language=VBScript %> 
<!- # include flle=\./suppo^t/gIobal_constants.asp ,, -> 
<!-#include file^.ysupport/dbConnection.asp" -> 
<!- #include file^.Vsupport/adoUtils.asp" -> 
<!- ^include file^.Vsupport/srcTab.asp" -> 

<% 

If Request.Form("UPDATE.x") o "" then 

l_button = "Update" . 
elself Requcst_form("DELETE.x") o then 

l_bunon = "Delete" 
end if 

l_rec_id ° Request.Query$tring("Z") 
'Response. Write l_rec_id 
If (IsNumeric( l_rec_id) ) then 
if l_button = "Update" or IJmtton = "Delete" then 
l_action = true 

l_product_id = Scssion("PRODUCTJD") 

l_panel_scheme = request form("P_PANEL_SCH EM E") 

l_panel_codes = request.form("P_PANEL_CODES*') 

l_panel_name = Request. form("P_PANEL_NAME") 

IJogin = Session("U") 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit_autosetup_pancl_der 
objCMD.CommandTypc = adCmdStoredProc 
objCMD.Parameters.Refresh 
objCMD.Parameters(l). Value = Ijanel^scheme 
objCMD.Parameters(2). Value = l_panel_codes 
objCMD.Parameters{3). Value = l_pancl_name 

objCMD.Parameters(4). value = cint(!_recjd) 
if lJ>utton = "Delete" then objCMD.Parameters(5). Value = 1 else objCMD.Parameters(5). Value = 0 
Set TempNonSession Var = objCMD.ExecuteO 
Response.Redirect "tabautosetup.asp" 
l_action = true 
else 

l_action = false 

strSQL = "select panel_scheme, panel_codes, panel_name " & _ 
" from autosctup_j)ancl_def " & _ 

" where recjd = " & l_rec_id 
ObjRST.opcn strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 

l_panel_scheme = objRST("PANEL_SCHEME") 
I_panel_codes = objRST("PANEL_CODES") 
l_panel_namc = objRST("PANEL_NAME") 
end if 

ObjRST.closc 

end if 
end if 



%> 
<html> 
<head> 

<title>edit_pancl_defasp</title> 
</head> 

<body bgcolor="#99CCFF" vlink="000000" link="003366"> 

<form method="post" action=*cdit_paneI_def.asp?Z=<%Rcsponse. Write l_rec_id %> " id=formI name=forml> 
<table width="640" border="0" cellpadding="2"> 
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<tr valign="top"> 

<td aiign="left* width="640" co!span="3"ximg src=\./graphics/edit 1222.gif width="27" height=M4' , x/td> 
</tr> 

<tr valign="top"> 

<td align="letV width="640" coIspan="3"> 
<lablc width="500" border="0" cellspacing="3" cellpadding="2 w > 
<tr valign="top"> 
<td height="25" align="left"> 
<div aIign="lenVx/div> 
</td> 

<td height="25" align="lerV> 

<input type- IMAGE' Value="UPDATE" Name=" UPDATE" 
src=".Vgraphics/submitl222.gir width="54" height="I6" border="0"> 
<imgsrc=".7graphics/blankI222.gir width="20" height="!6" border=0> 
<input t>pc='IMAGE' Value=" DELETE" N am e=" DELETE" 
src= w .7graphics/delctcl222.gir width="53" height="16" border=0> 
<%' <input type- IMAGE' VaIue="DELETE" Name="DELETE" 

, src=".ygraphtcs/de!etel222.gir width="53" height^" 1 6" border=0> %> 
<font facc=" Verdana, Arial, Helvetica, sans-serif size="-4"> 
<a hre£="tabautosetup.asp"> Return to Auto-Setup tab!e</ax/fontx/td> 
<Jti> 

<tr> 

<td bgcolor="003366" height=*20" width=" 1 40" align="ccnter"> 
<div align="centcr"> 

<font face="Verdana, Arial, Helvetica, sans-scrir color="#FFFFFF"> 
<bxfont size=" I "> 
PANEL SCHEME 
</fontx/bx/fontx/div> 
</td> 

<td bgcolor="#99CCFF* height= n 20" width="360" align="left"> 
<div align="left"xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxf 0 nt size=T 
color="#000000"> 

<%if not faction then %> 

<input type="TEXT" NAME- P_PANEL_SCHEME' 

id=0 value="<%Responsc. Write l_panel_scheme %>" max!engih="50" 

<% else 

Rcsponse.Write l_panel_scheme 

end if %> 

</font></bx/fontx/div> 

</td> 

</tr> 

<tr> 

<td width=" 1 40" bgcolor="#003366" height="2(T align="center"> 
<div align^center-xfont face=" Verdana, Arial, Helvetica, sans-serir color^"#FFFFFF"Xbxfont size="l">PANEL 
CODES</fontx/bx/fontx/div> 
</td> 

<td width="360" bgcolor="#99CCFF" height="20" align=*letr> 
<div align="Ieft"xf 0 nt face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size=T 
color="#000000"> 

<%if not 1 action then %> 

"<input type=TEXT" NAME- P_PANEL_CODES' . id=0 
value="<%Response. Write l_panel codes %>" maxlength="250" size="I00'*> 

<% else 

Response.Write l_pane1_codes 

end if %> 

</fontx/bx/fontx/div> 

</td> 
</tr> 

<tr> 

<td widuv="l40" bgcolor="#003366" height^O" align="center"> 
<div align="center"xf 0 nt face="Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size=" 1 **>PANEL 

NAME 

</fontx/bx/fontx/d i v> 
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</td> 

<td width="36<r bgcolor="#99CCFF" height=-20" align^left^ 

<div aIign="lcft n xfont face=" Verdana, Arial, Helvetica, sans-scrir coior="#FFFFFF"xbxfont size="l" 
color="#000000"> 

<%if not l_action then %> 

<inputt>pe="TEXT' NAME-P_PANEL_NAME' id=0 
va!ue= ,, <%Response. Write l_panel_name %> " maxlength="50" size="3(T> 

<% else 

Response. Write l_panel_name 

end if %> 

</fontx/bx/fontx/div> 

</td> 

</tr> 



</tab!e> 
</td> 
</tr> 
</table> 
</form> 
</body> 
</html> 
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edit renewal psdef.asp 

<%@ Unguage=VBScript %> 
<!- ^include ftle=\Ysupport/globaJ_constants.asp" -> 
<!- ^include file^Vysupport/dbConnection.asp" -> 
<!— ^include file=\./support/adoUtils.asp" — > 
<!— ^include file=\ysupport/srcTab.asp" -> 

<% 

If RequestFonm("UPDATE.x") o then 

IJmtton = "Update" 
elself Request form("DELETE.x")<> "" then 

i_button = "Delete* 
end if 

Irecjd = RequesLQueryString("Z") 
'Response. Write l_rec_id 
If (IsNumeric( l_rec_id) ) then 
if l_button = "Update" or l_button = "Delete" then 
l_action = true 

1_src_cat_name = RequestForm("P_SRC_CAT_NAME") 
llourcc_name = RequcstForm("P_SOURCE_NAME") 
if not(l_source_name>" ") then l_source_name = "Undefined" 
l_source_indicator = RequesLForm("P_SOURCE_INDICATOR") 

l_prior_source_indicator = Requestform("P_PRIOR_SOURCEJNDICATOR") 
I valid from = Request form("P_VALID_FROM") 
f valid jo - Requestform("P_VALID_TO") 

objRST.open "select src_cat_name from source where source_name = '" & l_source_name & "'", strSQLOLEDB, 
adOpcnStatic, adLockOptimistic 

if not objRST.eof then l_src_cat_namc = objRST(0) else l_src_cat_name = "Undefined" 
objRST.close 

response. write (l_prior_source_indicator & " < Prior source indicator ") 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit_autosetup_renewal jisdef* 
objCMD.CommandType = adCmdStoredProc 
objCMD. Parameters. Refresh 
objCMD.Parameters(l). Value = l_src_cat_name 
objCMD.Parameters(2). Value = l_source_name 
objCMD.Parameters(3).VaIue = l_sourcc_indicator 

objCMD.Parameters(4). Value = trim(l_prior_source_indicator) 
objCMD.Parameters(5).VaIue = l_valid_from 

objCMD.Parameters(6). value = l_vaiid_to 

objCMD.Parameters(7). value = cint(l_recjd) 
if l_button = "Delete" then objCMD.Parameters(8)7value = 1 else objCMD.Parameters(8). Value = 0 
Set TempNonSessionVar = objCMD.ExecuteO 
Response. Redirea "tabautosctup.asp" 
l_action = true 
else 

Inaction = false 

strSQL = "select source_name, sourcejndicator, prior_sourcc_indicator t valid_from_date, validjo_date " & _ 
" from autosetup_renewal_psdef " & _ 

" where recjd = " & l_rec_id 
ObjRST.open strSQL, strSQLOLEDB, adOpcnStatic, adLockOptimistic 
If (ObjRST.EOF - False) then 

l_source_namc = ObjRST("source_name") 
l_source_indicator = objRST("source_indicator") 
. Ijrio^sourceJndicator^objRSTC'prior^sourcejndicator") 
l_valid_from = ObjRST("vaJid_from_date") 
f valid_to = ObjRST("validjo_date") 

end if 

ObjRSTxlose 

end if 
end if 
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%> 
<html> 
<head> 

<title>edit_renewal_psdef.asp</title> 
</hcad> 

<body bgcolor="#99CCFF" vlink="000000" link=**003366"> 

<form method^" post" action="cdit_rcncw-al - psdcrasp?Z=<%Rcsponse. Write l_rcc_id %> " id-form 1 name=form 1 > 
<table width="640" border="0" cellpadding="2*> 
<tr valign="top"> 

<td align="lerT width="640" coUpan="3"ximgsrc=\Vgraphics/ed it! 222.gif width="27" height*" 14"x/td> 
</tr> 

<tr valign="top"> 

<td a!ign="left" width="640" colspan="3"> 
<tablc width="500" border="0" cellspacing="3" cel!padding="2"> 
<tr va!ign="top"> 
<td height="25" align="Ieft"> 

<div align="left"x/div> 
</td> 

<td hcight="25" align="left"> 

<input type^MAGE' Value="UPDATE" Name="UPDATE" 
src=".Vgraphics/submit 1222.gif width="54" height^" 16- border="0"> 
<img src=". -/graphics/blank 1 222.gif width="20" height="16" bordcr=0> 
<input typc^IMAGP Value="DELETE" Name=" DELETE" 
src="../graphics/delete 1222.gif width="53" height="16" bordcr=0> 
<%' <input type^'IMAGE* Value-" DELETE" Name="DELETE" 

•src=".7graphics/de!etel222.gir width="53" height="16" border=0> %> 
<font face=" Verdana, Arial, Helvetica, sans-serif size="-4"> 
<a href="tabautosetup.asp">Rcturn to Auto-Setup table</ax/fontx/td> 
</tr> 

<tr> 

<td bgco!or="003366" heighr="20" width=" 140" align="center"> 
<div aJign="center"> 

<font face="Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfontsize="r> 
SOURCE NAME 
</fontx/bx/fontx/d i v> 
</td> 

<td bgcolor="#99CCFF" height="20" width="360" align="left"> 
<div align="left"xfont face="Verdana, Arial, Helvetica, sans-serif coIor="#FFFFFF"xbxfont size*="t" 
color="#000000"> 

<%if not I_actibn then 

strSQL = "select U_SOURCE_NAME FROM Sourcejiescripiions " 
objRST.open strSQU strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "P_SOURCE_NAME",6, "SELECT SOURCE", 

l_source_namc 

objRST.close 

else 

Response. Write l_source_name 

end if %> 

</fontx/bx/fontx/div> 

</td> 

</tr> 

<tr> 

<td width=" 140" bgcolor="#003366" height="20" align="center"> 

<div align="center"xfont facc=" Verdana, Arial, Helvetica, sans-serif* color="#FFFFFF"xbxf 0 ntsize="r>SOURCE 

INDICATOR </fontx/bx/fontx/div> 
</td> 

<td width="360" bgcolor="#99CCFF" height="20" align="left"> 
<div align="lcft"xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"><bxfont size="l" 
color="#000000"> 

<%i f not l_action then %> 

<input type="TEXr NAME^P.SOURCEJNDICATOR' 
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id=0 va!uc="<%Responsc. Write l_source_indicator %>" max!cngth="30" 

size="6"> 

<% else 

Response. Write l_source_indicator 

end if %> 

</fontx/bx/fontx/div> 

</td> 
</tr> 

<tr> 

<td widths" 140" bgcolor= n #003366" height="20" align="center"> 

<div align="ccnter"xfont face=" Verdana, Arial. Helvetica, sans -sen r color="#FFFFFF' , xbxfont size="t*>PRIOR 
SOURCE 

INDICATOR </fontX/bx/fontx/div> 
</td> 

<td width="36<r bgcolor="#99CCFF" height="20" aJign="lerV> 

<div align="left"xfont face=" Verdana, Arial, Helvetica, sans-serif coloF="#FFFFFF"xbxf 0 nt size="T 
coIor^OOOOOO^ 

<%if not l_action then %> 

<input type="TEXT NAME='P_PRIOR_SOURCE_INDICATOR' 
id=0 value="<%Res po nse. Write l_prior_source_indicator %>" 

maxlcngth="25(r size="100"> 

<% else 

Response. Write l_prior_source_indicator 

end if %> 

</fontx/bx/fontX/div> 

</td> 
</tr> 

<tr> 

<td width^ 140" bgcolor="#003366" height="20" align="center"> 
<div align="cenler"xf 0 nt face=" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"xbxfont size=* l"> VALID 

FROM 

</fontx/bx/fontx/d i v> 

</td> 

<td width="360" bgcolor="#99CCFF" heighr="20" align="lefV> 
<div aiign="lefTxfont face=" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF*xbxfont size="l" 
color="#000000"> 

<%if not l_action then %> 

<input type="TEXT" NAME- P_VALID_F ROM* 

id=0 value="<%Response. Write l_vaIid_from %>" maxlength="30" 

size="l5"> 

<% else 

Response. Write l_valid_from 

end if %> 

</fontx/bx/fontx/div> 

</td> 

</tr> 
<tr> 

<td width=" 1 40" bgcolor="#003366" height="20" align="center"> 

<div align="center"xfont face=" Verdana, Arial, Helvetica, sans-serir 

color="#FFFFFF"xbxf 0 nt size="l"> VALID TO 

</fontx/bx/fontx/div> 

</td> 

<td width="360" bgcolor="#99CCFF" height="20" a!ign="left"> 
<div align=="left"xfont face*" Verdana, Arial, Helvetica, sans-serir 
color="#FFFFFF"xbxfont size="l" color="#000000"> 

• <%ifnotl_actionthcn%> 

<input type=TEXT NAM E- P_V ALI DJTO* 

id=0 vaIue="<%Response. Write l_va!idjo %>" maxlcngth="30" size="15"> 

<% else 

Response. Write l_valid_to 

end if %> 

</fontx/bx/fontx/div> 

</td> 
</tr> 



Integrated Marketing Technology 



9/27/00 2:22 PM 



Page 114 of 200 



</table> 
</td> 
</tr> 
</table> 
</form> 
</body> 
</html> 
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editcamp.asp 



<%@ Language= VBScript %> 
<!- #include file=*'.7support/global_constants.asp" -> 
<!- ^include fiIe=\ysupport/dbConnection.asp" -> 
<!- tfinclude file-".ysupport/adoUtiIs.asp" -> 
<!- U include fi!e="../support/srcTab.asp" — > 



Response. Write "HEY ! ! ! " 
If Request.Form("UPDATE.x") o *" then 

l_button = "Update" 
elseif Request form("DELETE.x") o then 

l_button = "Delete" 
elseif Request.form("COPY") o then 

l_button = "Copy" 

end if 

l_rec_id = Request.QueryString("Z") 

•Response. Write " iodsha ofipasdh fioydhopas " & l_button & l_rec_id 
If (IsNumeric( l_rec_id) ) then 

if I_bunon - "Update" or l_button = "Delete" or l_button = "Copy" then 

'Response. Write " FDSA FDS AFDSA FDSA FDSA FDSA FDSAFDashdfi as;hfidashp 
fiodhasopfihdsio0apfndiospahfdiospafi8doas[p fiodsha oftpasdh fioydhopas " 

l_camp = REQUEST("P_CAMP") 

l_camp_type= REQUEST("P_CAMP_TYPE" ) 

l_camp status = REQUEST("P_CAMP STATUS" ) 

l_camp~date_fr = REQUESTfP CAMP_DATE FR") 

l_camp date to = REQUEST("P_CAMP DATE TO" ) 

l_agt code "= REQUEST("P_AGT_CODE" ) 

l_agtJescr = REQUEST("P_ACT_DESCR" ) 

l_e_set_name = REQUEST(" P_E_S ET_N AM E" ) 

l_r_set_name = REQUEST("P_R_SET_NAME" ) 

l_NEWSTAND_SAle = REQUEST("P_NEWSTAND_SALE" ) 

IJmdgeted^grossjpct = REQUEST("p_budgeted _,grossj>ct" ) 

l_budgeted_vol = REQUEST("p_budgeted_vol") 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_cdit_campaign" 
Response. Write l_budgcted_gross_pct & " " & vaIidateNumber(I_budgetedjgross_pct) &"<br>* 
objCMD.CommandType = adCmdStoredProc 
objCMD.Parameters.Refresh 
objCMD.Parameters(I). Value = l_camp 
objCMD.Parameters(2). Value = ValidatePickList (l_camp_type) 
objCMD.Parameters(3). Value = ValidatePickList(l_camp_status) 
objCMD.Parameters(4). Value = validateDate (l_camp_date_fr) 
objCMD.Parameters(5). Value = null 
objCMD.Parameters(6). Value = null 
objCMD.Parameters(7). Value = null 

objCMD.Parameters(8). Value = VAUDATEPickList (l_e_set_name) 
objCMD.Parameters(9). Value = ValidatePickList (I_r_set_name) 
objCMD.Parameters(IO). Value = validateNumber(l_NEWSTAND_SAIe) 
• objCMD.Parameters(l 1). Value = vaJidateNumber(l_budgetedjgross_pct) 
objCMD.Parameters(l 2). Value * validateNumber(l J)udgeted_vol) 
objCMD.Paramcters(13). Value = Session("U") 

objCMD.Parameters( 14). Value « l_rec_id 
if I_bution = "Delete" then 
• THis is the isDelcte Parametere 

objCMD.Parameters(15).Value= I 
elseif I_button = "Update" then ; 

objCMD.Parameters(I5).VaIue = 0 
elseif l_button = "Copy" then 

objCMD.Parameters(1 5). value - 2 

end if 

Set TempNonSessionVar = objCMD.ExecuteQ 
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Response. Redirect * , admin5a.asp?display=l " 

else 

l_action = false 

strSQL = "select CAMP_NAME, CAMP_TYPE, CAMP_STATUS_NAME, 
& " CAMP DATE FR, CAMP_DATE_TO, AGT_CODE, • 
& " AGT_DESC R,~E_S ET_N AM E t R_SET_NAME, NEWST AND_SALE, ' 
& " budgetedjgross^pct, budgeted_vol " _ 

&" FROM Campaigns "_ 

& " WHERE rec_id = " & cint(l_recjd) 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
l_camp = ObjRST.Fields("CAMP_NAME") 

l_camp_type = ObjRST.Fie!ds("CAMP_TYPE") 

I camp_status = ObjRST.Fields("CAMP_STATUS_NAME") 

fcamp_date_fr = ObjRST.Fields("CAMP_DATE_FR") 

l_camp~date_to = ObjRST.Fields("CAMP_DATE_TCr) 

l_agt_code = ObjRST.Fields("AGT_CODE") 

1 agt_descr = ObjRST.Fields("AGT_DESCR") 

fe_set name = ObjRST.FieIds("E_SET NAME") 

I r_set~name = ObjRST.Fields("R_SET~NAME") 

fNEWSTAND_SAIc = Obj RST.Fields("NEWSTAND_SALE") 

l_budgeted_gross_pct - ObjRST.FieldsCbudgetedjgrossjct" ) 

l_budgeted_voi = ObjRST.Ficids("budgcted_vol") 

end if 

objRST.dosc 
end if 
end if 



%> 
<html> 
<head> 

<tit!e>IMT Nctwork</title> 
</hcad> 

<body bgcoIor="#99CCFF" vlink="000000" link="003366"> 

<form mclhod^post" action="editCamp.asp?Z=<%Response. Write I_recjd %> " id=forml name=forml> 
<table widih="640" border^C ceHpadding="2"> 
<% prevSelections(4) %>" 
<tr va!ign="top"> 

<td align="left- width^^O" co!span="3"> 
<img src 3 ". ./graphics/edit 1222.gif width="27" height="14"x/td> 
</tr> 

<tr valign="top"> 

<td aiign="left" width="640" colspan="3 n > 
<table width^SOO" border 3 "^ cellspacing^" cellpadding^*^ 
<tr vaIign="top"> 
<td height=* , 25" align="left"> 

<div aJign="left"X/div> 
</td> 

<td height*"^" aJign="left"> 

<input typc^IMAGE' Va!ue="UPDATE" Name="UPDATE" 
src=".7graphics/submitl222.gir width="54" heighr="16" border^O^ 
<img src^Vgraphics/blank 1 222.gif* width="20" height=*l6* border=0> 
<SCRIPT LANGUAGE^" JavaScript 1 . 1 "> 

<!— Comment out script for old browsers 
function confirmjlelete_camp0 { 

return confirm("This will delete the Campaign, all of its panels and aJl of its keys. This operation 
can not be undone. Are you sure you wish to delete this Campaign?**); 
} 

//-> 

</SCRlPT> 
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<input typc-IMAGE 1 Value="DELETE" Name=" DELETE" 

src=".Vgraphics/delete 1222.gif width="53" height="l6" onClidc="retum confirm_delete_campO" border=0> 
</td> 

<tdxinput type^SUBMrr Va!ue="COPY" Name="COPY" id="COPY"> 
</td> 

<font face* 1 " Verdana, Arial, Helvetica, sans-serif size=M"> 
<a href="admin5aLasp">Retum 
to Campaign</aX/fontx/td> 

<Ju> 

<tr> 

<td bgcolor="003366" height="20" width="140" align="center"> 
<div align="center"> 

<font face=* Verdana, Anal, Helvetica, sans-serif co!or="#FFFFFF"> 
<bxfontsize="r> 

CAMPAIGN NAME 
</fontx/bx/fontx/d i v> 
</td> 

<TD align="LEFT> 

<%if not l_action then %> 
<input type=TEX*T NAME=*P_CAMP' 
id=0 value- <%Response. Write I_camp %>*> 

<%else 

Response. Write l_camp 
end if %> 



</trXtr> 

<td bgcolor=-003366 w height="20" width=" 140" align="center"> , 
<div align="center"> 

<font face=" Verdana, Arial, Helvetica, sans-serif co!or="#FFFFFF*> 

<bxfont si2e="l"> 

CAMPAIGN START DATE 

</fontx/bx/fontx/div> 

</td> 

<TD align="LEFT"> 
<%if not l_action then %> 

<input type^TEXT" NAME=T_CAMP_DATE_FR* 
id=0 value- <%Response. Write I _camp_date_fr %>*> 

<%else 

Response. Write l_camp_date_fr 
end if %> 

</td> 
</trxtr> 

<td bgcolor="003366 w height="20" width="l40" align="center"> 
<div align="center"> 

<font facc=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfontsize="r> 
CAMPAIGN TYPE 
</fontx/bx/fontx/div> 
</td> 

<TD align="LEFT"> 
<%if not l_action then 

strSQL = "select CAMP TYPE_NAME from PROD_CAMP_TYPE where " _ 
& " PRODUCTJD=" & Session("PRODUCTJD-) 
objRST.opcn strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "p_camp_type\6, "SELECT TYPE", l_camp Jype 
objRST.close 



</td> 
</trxtr> 

<td bgcolor="003366" height="20" width="l40" aUgn="center"> 
<div align="center"> 

<font face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfont size="l"> 
CAMPAIGN STATUS 



</td> 



else 



Response.Write 1 camp_type 
end if %> 
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</fontx/bx/fontx/div> 
</td> 

<TD aHgn="LEFT> 
<%if not l_action then 

strSQL = "select CAiMP_STATUS_NAME from PROD_CAMP_STATUS where " _ 
& " PRODUCT_ir>=" & S«sion("PRODUCT_lD") 
objRST.open strSQU strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "p_camp_status",6, "SELECT STATUS", l_camp_status 
objRST.close 
else 

Response. Write l_camp_status 
end if %> 

</td> 
</trxtr> 

</tr> 

<% IF SESSlON("SRC_CATECORY") = "Agents" then %> 
<tr> 

<td bgcolor="003366" hcight="20" width="140" aJign="center"> 
<div aJign="ccnter"> 

<font facc=" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"> 

<bxfontsize="I"> 

Agent Code 

</fontx/bX/fontX/div> 
</td> 

<TD align="LEFT*> 
<%if not I_action then %> 
<input typc="TEXT" NAME= , P - .AGT_CODE t 
id=0 value-<%Responsc.Write I_agt_code %>*> 

<% else 

Response. Write l_agt__code 
end if %> 

</td> 
</trxtr> 

<td bgcolor="003366" hcight^O" width="l40" align="ccnter"> 
<div align="center"> 

<font face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfont size="l"> 
Agent Descr 

</fontx/bxyfontX/div> 
</td> 

<TD align="LEFT"> 
<%if not l_action then %> 
<input type=TEXT- NAME- P_AGT_DESCR* 
id=0 value^^/oResponse. Write l_agt_descr%> , > 

<%else 

Response.Write l_agt_descr 
end if %> 

</td> 
</tr> 

<%else %> 

<input type="hiddcn" NAME=T_AGT_DESCR' 
va!ue=**> 

<input type="hidden" NAME=T_AGT_CODE* 

va!uc="> 
<% end if %> 

<tr> 

<td bgcolor="003366" height="20" width="140" aiign="center"> 
<div align-"center"> 

<font face=" Verdana, Ariai, Helvetica, sans-serif color="#FFFFFF"> 
<bxfont size="l"> 
EXPENSE SET 
</fontx/bx/fontx/div> 
</td> 

<TD align="LEFT"> 
<%if not I action then 
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strSQL = "select e_set_name from EXPENSE_SETS where " _ 
& - PRODUCT_ID=" & Session("PRODUCTJD") 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST, "p_E_SET_NAME n ,6, "SELECT EXPENSE SET", I_E_SET_NAME 
objRST.ciose 
else 

Response. Write l_e_set_name 
end if %> 

</td> 
</trxtr> 

<td bgcolor="003366" heighr="20" width="l40" align="center"> 
<div align="center*> 

<font face="Verdana, Anal, Helvetica, sans-serif color="#FFFFFF"> 

<bxfontsize="I"> 

REVENUE SET 

</fontx/bx/fontx/div> 

</td> 

<TD aiign="LEFT"> 

<%if not l_action then 
strSQL = "select r_set_name from REVENUE_SETS where " _ 
& " PRODUCT_ID=" & SessionfPRODUCTJD") 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST, " p_r_S ET_N AME",6, "SELECT REVENUE SET " ( l_R_SET_NAME 
objRST.ciose 
else 

Response. Write l_R_SET_NAME 
end if %> 

</td> 
</tr> 
<tr> 

<td bgcolor="003366" height="20" width=" 140" align="center"> 
<div align="center"> 

<font face="Verdana, Arial, Helvetica, sans-serif co!or="#FFFFFF"> 

<bxfontsize="l"> 

NEWSSTAND SALE 

</fontx/bx/fontx/div> 

</td> 

<TD align="LEFT"> 
<%if not l_action then %> 

<input type="TEXT" NAME='P_NEWSTAND_SALE' 
id=0 value='<%Response. Write l_NEWSTAND_SAle %>*> 

<%else 

Response. Write l_NEWSTAND_SAIe 
end if %> 

</td> 
</trxtr> 

<td bgcolor="003366" height="20" width="I40" align="ccnter"> 
<div align-"center"> 

<font face="Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 

<bxfontsize="I"> 

BUDGETED GROSS % 

</fontx/bx/fontx/div> 

</td> 

<TD align="LEFT"> 
<%if not Inaction then %> 

<input type="TEXT" NAME- PjMdgeted^grossjjct' 
id=0 value='<%=l_budgeted_gross_pct%>'> 

<% else 

Response. Write I_budgetedj»rossj>ct 
end if %> 

</td> 
</trxtr> 

<td bgcolor="003366" height="20" width="l40" align="center"> 
<div align="center"> 

<font face="Verdana, Arial, Helvetica, sans-serif co!or^"#FFFFFF"> 

<bxfontsize="l"> 

BUDGETED VOL 
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</fontx/bx/fonUK/div> 
</td> 

<TD align= w LEFT"> 
<%if not l_action then %> 
<input type="TEXT NAME- P_budgcted_vol' 
id=0 vaJuc= , <%=i_budgctcd_vol%» 

<% else 

Rcsponse.Write l_budgeted_vol 

end if %> 

</td> 
</tr> 



</table> 
</td> 
</tr> 

</iab!e> 
</form> 



<P> </P> 

</BODY> 
</HTML> 
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cditcampstat.asp 

<%@ Language=VBScript %> 

<!-#inc!ude filc=".7support/global_constants.asp" -> 

<!-#indude file=".7support/dbConnection.asp" -> 

<!- #include fi!e=\./support/adoUtils.asp" -> 

<!- Sinclude fiIe=".7suppon/srcTab.asp" -> 

<!- U include file^.Ysupport/setupTab.asp" -> 

<% 

If RequesLForm("UPDATE.x") o "" then 
l_action = "Update" 

elsetf Request form("DELETE.x") o "" then 
Inaction = "Delete" 

end if 

l_ColumnCount - 2 

l_rec_id = RequestQueryString("Z") 

l_sp_edit = "sp_Edit_Prod_Camp_staius" 
Mile - "cditCampStatasp" 

dim l_col_names(2) 
dim l_col_values(2) 
I_Title = " Campaign Status" 

I_setupTabLink = "setupCampStat.asp" 
I_showPrevSelection= false 

l_col names(O) = "CAMPAIGN STATUS" 
l_cofnames(l) = "DESCRIPTION" 

I_query = "select CAMP_STATUS_NAME, CAMP_STATUS_DESCR " _ 
& " FROM PROD_camp_status "_ 
& " WHERE rec_id = " & cint(I_rec_id) 



■ Response. Write l_rec_id 
If (IsNumeric( l_rcc_id) ) then 

if l_action = "Update" or I_action = "Delete" then 

editAccept l_rec_id, l_action, l_CoIumnCoum, l_setupTabLink,l_sp_edit 
else 

strSQL = I_qucry 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
l_col_vaiues(0) = ObjRST.Fields(O) 

l_col_values(l) = ObjRST.Ftelds(I) 

end if 

objRST.dose 
end if 

end if 



' call setupTab's editmain to paint screen for user input 
editHeading IJile, I_fi!e, l_rec_id 

'assign values to variables for setupTab's editMain 



' call setupTab's editmain to paint screen for user input 

editMain l_TiUeJ_setupTabLink,l_showPrevSeleciion,l_coI_names,l_col_vaIuesJ_CoIumnCount 
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' call sctupTab's editBottom to close body, html, form 
editBottom %> 
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editcamptvpc.asp 

<%@ Language= VBScript %> 

<!— ^include file=\./support/global_constants.asp" — > 

<!— 8 include fiIe=\./support/dbConnection.asp" — > . 

<!- ^include filc=\./support/adoUtiIs.asp" -> 

<!- ^include file="../support/srcTab.asp" -> 

<!- ^include file="../suppori/setupTab.asp" -> 

<% 

dim l_col_namcs(2) 
dim l_col_vaJucs(2) 

l_ColumnCount = 2 
l_rec_id = RequestQueryStringfZ") 
If Request Form("UPDATE.x") o "" then 
l_action - "Update" 

elself Requestform("DELETE.x") o then 
I_action = "Delete" 

end if 

l_sp_cdit = "sp_Edit_Prod_Camp_Type" 
l__file = "editCampType.asp" 
l_Title = " Campaign Type" 
l_setupTabLink = "setupCampType.asp" 
l_showPrevSeIection= false 

I col_names(0) = "CAMPAIGN TYPE NAME" 
l_col_namcs(l) = "DESCRIPTION" 

Lquery = "select CAMP_TYPE_NAME, CAMP_TYPE_DESCR " _ 
& " FROM PROD_camp type " _ 
& " WHERE rec_id = " & cint(l_rec_id) 

* Response. Write l_rec_id 
If (lsNumeric( l_rec_id) ) then 

if l_action - "Update" or I_action = "Delete" then 

editAccept l_rec_id, l_action, l_ColumnCount, l_setupTabLinkJ_sp edit 
else 

strSQL = l_query 

ObjRST.open strSQU strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
l_co!_values(0) = ObjRST.Fields(O) 

!_col_values(l)= ObjRST.Fields(I) 

end if 

objRST.close 
end if 

end if 



' call setupTab's editmain to paint screen for user input 
editHeading I file, l_filc, l_rec_id 

'assign values to variables for setupTab's editMain 



' call setupTab's editmain to paint screen for user input 

editMain l_TilleJ__sctupTabLink,I_showPrevSelectionJ_col_names,l_col_vaIues,l_ColumnCount 
* call setupTab's editBottom to close body, html, form 
editBottom %> 
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editeset.asp 

<%@ Language=VBScript %> 
<!- # include file-"../support/global_constants.asp" -> 
<!- # include file-". ./support/dbConnection. asp" -> 
<!- ^include file=".Ysupport/adoUtils.asp" -> 
<!- # include file=\./support/srcTab.asp" -> 



<% 



If Request Form("UPDATE.x") o "" then 

l_button = "Update" 
elself Requestform("DELETE.x") o then 

l_button = "Delete" 
end if 



recjd ~ Request QueryString("Z") 
'Response. Write l_rec_id 

If IsNumeric(rec_id) then 

, response.write("HelIo World > button - " & l_bunon) 
if I_button = "Update" or l_button = "Delete" then 

productjd = Session("PRODUCTJD") 
c_set_name = Request, form("e_set_name") 
print_cost = Request. form("print_cost") 
print_cpm_cpu = Request form("print_cpm_cpu") 
print_basis = Request form(*print_basis") 
merge_purge - Requestform("merge_jmrge") 
merge_cpm_cpu = Request form("merge_cpm_cpu") 
merge_basis - Request form("merge_bas is") 
ltr_cost = Requestform("Itr_cost") 
ltr_cpm_cpu = Request fortn("ltr_cpm_cpu") 
Itr_basis = Request form("ltr_basis") 
postage_out_cost = request. form("postage_out_cost") 
postage_out_cpm_cpu = Request form("postage_out_cpm_cpu M ) 
postage_out_basis - Request form("postage_out_basis") 
postage_in_cost - Request form("postage_in_cost") 
postagc_in_cpm_cpu * Request form("postage_in_cpm_cpu") 
postagc_in_basis = Request form("postagcJn_bas is") 
premium_cost = Request form("premium_cost") 
premium_cpm_cpu = Request form("premium_cpm_cpu") 
premium_basis = Request form("premium_bas is") 
badpay_cost = Request. form("badpay_cost") 
badpay_cpm_cpu =* Request form("badpay_cpm_cpu") 
badpay_basis = Request form("badpay_basis") 
billing_cost = Requestform("billing_cost") 
billing_cpm_cpu = Request form("b ill ing_cpm_cpu") 
billing_basis = Request form("billing_basis") 
subs_svc_costs = Request form("subs_svc_costs") 
subs_svc_cpm_cpu =» Requestform("subs_svc_cpm_cpu") 
subs_svc_basis = Request form("subs_svc_bas is") 
exp_other_costs = Request form("expj5ther_costs") 
exp_other_cpm_cpu - Request.form("exp_other_cpm_cpu") 
exp_other_basis ~ Requestform("exp_other_basis") 
if l_button » "Delete" then IsDelete = 1 else IsDelete = 0 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit_prod_e_set" 
objCMD.CommandType = adCmdStoredProc 
objCMD. Parameters. Refresh 

objCMD.Parameters("@product_id"). Value = productjd 

objCMD.Parameters("@e_set_name"). Value - e_set_name 
if not (print_cost > " •) then 

objCMD.Parameters("@print_cost"). Value = null 

else 

objCMD.Paramrters("@print_cost"). Value - print_cost 

end if 
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objCMD.Parametere("@printj:pm_cpu"). Value = print_cpm_cpu 
objCMD.Parameters("@print__basis"). Value = print_basis 
if not (merge_purge > " ") then 

objCMD.Parameters("@merge_purge"). Value = null 

else 

objCMD.Parameters("@merge_purge"). Value = merge_purge 

end if 

objCMD.Parameters("@merge_cpm_cpu*'). Value = merge_cpm_cpu 
objCMD.Parameters("@merge_bas is"). Value = merge_basis 
if not (ltr_cost > " ") then 

objCMD.Parameteis("@ltr_cost"). Value = null 

else 

objCMD.Parameters("@ltr_cost"). Value = ltr_cost 

end if 

objCMD.Parameters("@ltr_cpm_cpu"). Value = ltr_cpm_cpu 
objCMD.Paramcters("@ltr_basis"). Value = Itr_basis 
if not (postage_out_cost > " ") then 

objCMD.Paramete^sC@postage_out__cost , '). value = null 

else 

objCMD.Parameters("@postage_out_cost"). Value = postage_out_cost 

end if 

objCMD.Parameters("@postage_out_cpm_cpu"). Value = postage_out_cpm_cpu 
objCMD.Paramcters("@postage_out_basis"). Value = postage_outJ>asis 
if not (postage_in_cost > - ■) then 

objCMD.Parameters("@postage_in_cost") «= null 

else 

objCMD.Parameters("@postage_in_cost"). Value = postage_in_cost 

end if 

objCMD.Parameters("@postagejnj:pm_cpu"). Value = postage Jn_cpm_cpu 
objCMD.Parameters("@postage_inJ>asis"). Value = postage Jn_bas is 
if not (prcmium_cost > " ") then 

objCMD.Parameters(*@premium_cost") = null 

else 

objCMD.Parameters("@prcmium_cost"). Value = premium_cost 

end if 

objCMD.Parametefs("@premium_cpm_cpu'*). Value = prcmium_cpm_cpu 
objCMD.Parametcrs("@premium_bas is"). Value - premium_basis 
if not (badpay_cost > " ") then 

objCMD.Parameters("@badpay_cost"). value = null 

else 

objCMD.Parameters("@badpay_cost"). Value - badpay_cost 

end if 

objCMD.Parameters("@badpay_cpm - cpu"). Value = badpay_cpm_cpu 
objCMD.Parameters("@badpayJ)asis"). Value = badpay_basis 
if not (billing^cost > " ") then 

objCMD.ParametersC@biIling_cosO. Value = null 

else 

objCMD.ParametersC@biIling^cost"). Value = billing_cost 

end if 

objCMD.Parameters("@biIling_cpm_cpu"). Value » billing_cpm_cpu 
objC^^D.Pa^ametc^s( , '@billing_basis ,, ). Value ~ billing_basis 
if not (subs_svc_costs > " ") then 

objCMD.ParametereC@subs_svc - costs").vaIue = null 

else 

objCMD.Parameters("@subs_svc_costs"). Value = subs_svc_costs 

end if 

objCMD.Parametcrs("@subs_svc_cpm_cpu"). Value = subs_svc_cpm_cpu 
objCMD.Parameters("@subs_svc_basis"). Value = subs_svc_basis 
if not (exp_other_costs > " ") then 

l>bjCMD.PArameters("@expj)theT_costs") = null 

else 

objCMD.Parameters("@expj>ther_a>sts"). Value = exp_other_costs 

end if 

objCMD.Parameters("@exp_otherj:pmj:pu"). Value = exp_other_cpm_cpu 
objCMD.Parameters("@exp_other_basis").VaIue = expj>ther_basis 
objCMD.Parametersf^grecJd"). value = rec_id 
objCMD.ParametersfOIsDelete"). Value = IsDelete 
Set TempNonSessionVar = objCMD.ExecuteQ 
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Response. Redirect "setupesetasp" 
else 'Neither Update or Delete was pressed 

strSQL = "select *"&_ 

" from expense sets " & _ 

" where rec_id = " & rec_id 
•response, write (strSQL) 
ObjRST.opcn strSQU strSQLOLEDB, adOpenStatic, adLockOptimistic 
end if 
end if 



if 1_button o "Update" and I button o "Delete" then 

%> 
<html> 
<head> 

<titIOediteseLasp</title> 
</head> 

<body bgco!oi-"#99CCFF" vlink="000000" link="003366"> 

<form methods-post" action-"editesetasp?Z=<%Response. Write rec_id %> " id=forml name=forml> 
<table border="0" cellpadding="2"> 
<tr> 

<td> 

<input type-IMAGE* Valuc="UPDATE" Name=" UPDATE" 

src=".7graphics/submitl222.gir width="54" height="l6" border="0"> 

<img sr(r=".7graphics/blankl222.gir width="20" height="16" border=0> 
<input type-IMAGE* Value=" DELETE" Name="DELETE" 

src=".7graphics/de!etcI222.gir width="53" height="!6" border=0> 
</td> 

</tr> 
<tr> 

<td> 

<a href="setupeseLasp">Retum to Expense Set Setup Table</a> 

</td> 

</tr> 

<tr><td>&nbsp</tdx/tr> 

<tr> 
<td> 

Expense Set 

</td> 
<td> 

<input typc="TEXT" NAME="e_set_name" vaiue="<%=objRST("e_set_name")%> ,, > 

</td> 

</tr> 
<tr> 

<td> 

Print Cost 

</td> 
<td> 

<input typc=TEXT" NAME="print_cost" vaiuc="<»/cr=objRST("print_cost")%>"> 

</td> 
<td> 

<% showLOVListBox "CPM,CPU\"print cpm_cpu"^,"" f objRST("print_cpm cpu") 

%> 

</td> 
<td> 

<input rype="HIDDEN" NAME="printJ>asis" value="Mail Qty"> 
Mail Qty 

</td> 

</tr> 
<tr> 

<td> 

Merge Purge Cost 

</td> 
<td> 

<input type=TEXT NAME="merge_purge" value="<%=objRST( ,, mergej>urge")%>"> 
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</td> 
<td> 

<% showLOVLisiBox TPM.CPUYmerge^prr^cpu"^,'*", objRST("print_cpm_cpu") 

%> 

</td> 
<td> 

<% showLOVLisiBox "Mail Qty.Merge p urgc Qty" t "mcrgc_basis",2,"", 

objRSTfmcrge_basis") %> 

</td> 

</tr> 

<tr> 

<td> 

Lcttcrshop Cost 

</td> 
<td> 

<input type=TEX"P NAME="ltr_cost" valuc="<%=objRST( ,, iir_cost")%>' , > 

</td> 
<td> 

<% showLOVLisiBox "CPM t CPUYItr_cpm_cpu ",2,"", objRST("ltr_cpm_cpu") %> 

</td> 
<td> 

<input typc="HIDDEN" NAME="ltr_basis" va!uc="Mail Qty"> 
Mail Qty 

</ld> 

<lr> 

<td> 

Postage Out Cost 

</td> 
<td> 

<input typc=TEXT NAME="postage_out_cost" 
vaIue="<%=objRST("posiage_out cost")%>"> 
</td> 
<td> 

<% showLOVLisiBox "CPM,CPU"/postagc_out_cpm_cpu",2,"\ 

objRSTCpostage_out_cpm_cpu") %> 
</td> 
<td> 

<input t>pc="HIDDEN" NAME="postage_out_basis" valuc-"Mail Qty"> 
Mail Qty 

</td> 

<tr> 

<td> 

Postage In Cost 

</td> 
<td> 

<input type=TEXT" NAME="postage_in - cosr 

va!ue="<%==objRST( , 'postage_in_cosr)% > " > 
</td> 
<td> 

<% showLOVLisiBox "CPM,CPUVpostageJn_cpm_cptT t 2,' ,, \ 

objRST("postage_in_cpm_cpu") %> 
</td> 
<td> 

<input type-"HIDDEN" NAME="postage_in_basis" value^Gross Subs*> 
Gross Subs 

</td> 

</tr> 
<tr> 

<td> 

Premium Cost 

</td> 
<td> 

<input type="TEXT NAME="premium_cost" 

valuc="<%=objRST("premium cost")%>"> 
~</td> 
<td> 

<% showLOVLisiBox XPM,CPUYpremiumj:pm_cpir,2/\ 

objRST("postage_in_cpm_cpu") %> 
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otyRSTCpremiun^basis") %> 



</tr> 
<tr> 



<Ad> 
<td> 



</td> 



<td> 

</td> 
<td> 

</td> 
<td> 



objRST("badpay_cpm_cpu w ) %> 



</tr> 
<tr> 



%> 



</tr> 
<tr> 



</td> 
<td> 



</td> 



<td> 

</id> 
<td> 

</td> 
<td> 



</td> 
<td> 



</td> 



<td> 

</td> 
<td> 



<% showLOVListBox "Gross Subs,Net SubsYpremium_basis'\2 t ' , \ 
Bad Pay Cost 

<input typc-TEXT" NAME="badpay_cost" vaJuc=* , <%=objRST( n badpay_cost")%>"> 
<% showLOVListBox "CPM,CPUYbadpay_cpm_cpu\2," , \ 



<input type-"HIDDEN" NAME="badpay_basis" value="Gross-Net Subs"> 
Gross-Net Subs 



Billing Cost 

<input type= M TEXT" NAME="biliing L- cosr valuc^^/o^objRSTCbiiling^cosr) 0 /^^ 
<% showLOVListBox "CPM£PU Ybilling^cpm_cpu , \2,", objRST(*bilIing^cpm_cpu") 



<input type=" HIDDEN" NAME="billing_basis" vaJue="Credit Subs M > 
Credit Subs . 



Sub Service Cost 



<input type=TEXT" NAME="subs_svc_costs" 



value^"<%=objRST("subs_svc_costs , ')%> ,, > 
</td> 
<td> 



objRST(' , subs_svc_cpm_cpu' , ) %> 

</td> 
<td> 



<% showLOVListBox TPM,CPUYsubsj*c_cpm_cpu'',2," , \ 



<input type=" HIDDEN" NAME="subs_svc_basis" vaIue="Nct Subs"> 
Net Subs 



<tr> 



</td> 

<td> 

</td> 
<td> 



Exp Other Cost 



<input type=TEXT" N AM E="cxp_othcr_costs" 
value^^/cr^bjRSTCexp^ther costs")%>"> 
"</td> 
<td> 

<% showLOVListBox p CPM,CPUYexp_othe^_cp^n_cpu ,, ,2 ) ,, ' , 

objRST("exp_other_cpm_cpu") %> 

</td> 
<td> 
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<% showLOVListBox "Mail Qty.Mcrgc Purge.Gross Subs.Net 
Subs","exp_othcr_basis",2,"", objRST("exp_other_basis") %> 
</td> 

</tr> 

</tabIc> 
</td> 
</tr> 
</table> 

<%=l_button%> 
</form> 
</body> 
</html> 

<%cnd if%> 
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editkevs.asp 

<%@ Language=VBScript %> 

<!- #include fiie="../support/globaI_constants.asp" -> 

<!- ^include file=\./support/dbConnection.asp" -> 

<!- //include file="../support/adoUtils.asp" -> 

<!- //include fiIe=".Vsupport/srcTab.asp" -> 

<!- ^include fiIe=*\Vsupport/setupTab.asp" -> 

<% 

I_debug = 0 ' set to 1 for debugging 

l_rec_id = RequesLQueryString("Z") 
if Idebug = 1 then 

Response. write l_rec_id 

end if 



If RequestForm("UPDATEx") o then 

Inaction = "Update" 
elself Request. fonm("DELETE.x") o "" then 

l_action - "Delete" 
end if 

l_sp_edit = "sp_Edit_Keys" 
l_file - "editKeys.asp" 
l_ColumnCount = 16 
dim l_coI_names(16) 
dim l_coI_vaJues(I6) 
dim l_col_types( 1 6) 
dim l_coI_descI(16) 
dim I coI_desc2(16) 
l_Titie = "Keys" 

l_setupTabLink = "adminKeysRightasp" 
I_showPrevSelection= false 
l_col_names(0) - "KEY" 

i_col_names(l) = "KEY DESCRIPTION" 
I_col_names(2) = "MAIL QTY" 
I_co1_names(3) = "MAIL QTY OVERRIDE" 
l_col names(4) = "LIST CATEGORY" 
l_cof names(5) = "LIST NAME" 
l_col_names(6) = "LIST SEGMENT" 
l_col_namcs(7) = "LIST CPM" 
l_col_names(8) = "LIST COST BASIS" 
l_col_names(9) = "LIST COST FACTOR" 
l_col_naines(10) = "MERGE PURGE QTY" 
l_col_names(1 1) = "EXPENSE SET" 
l_co!_names(12) = "REVENUE SET* 
l_coi_names(I3) = "PACKAGE" 
l_col_names(14) = "SUBTOTAL FLAG" 
l_coI_names(l 5) = "OPTIONAL EFFORT ID" 



l_query = 
l_query = 
l_query - 
l_query - 
l_query = 
l_query = 
l_query = 
l_query = 
l_query = 
Lquery ° 
l_query = 
1 jjuery = 
I_query = 
I_query = 
I_query = 
I_query = 
I query - 
& " from Keys " 



"select • 
l_query & 
Lquery & 
Lquery & 
l_query & " 
I_query &" 
l_query &" 
l_query &" 
l_qucry & " 
l_query & " 
l_query &" 
I_query & " 
I query & " 
Lquery &" 
l_query & " 
I_query & 
I_query & ' 



" FULL_PROMO_KEY ,"*0 
" P KEY_DESCR . " ' 1 
" key_maiI_QTY ."'2 
MATL_QTY OVERRIDE ," 3 
LIST_CAT NAME ," ' 4 

LIST NAME • 5 - CHANGE TO LIST NAME 



• 6 - CHANGE TO LIST SEGMENT 
- CHANGE TO LIST SEGMENT 



LIST_SEGMENT_NAME 
list_cost_actuaJ_cpm ' 
list_costJ>asis ,"'8 
Iist_cost_factor ' 9 
merge j3urge_qty ,"'10 
e_set_name ,"' 1 1 
r_set_name ,"'12 
PANEL PKG ,"13 
S UBTOT AL_FLAG ,"14 

OPTlONAL_EFFORT lD,FULL_PROMO_KEY. RECJD "_ 
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& " where rec_id = * & clng(l_rec_id) 
ifl_debug= I then 
for m = 1 to 1 5 

Response. write "P_" & m & " " & request("P_" & m) & "<br>" 
next 

Rcsponse.Write "<BR>" & l_recjd & "<BR> " & l.qucry & ""<BR>" 
end if 

If (lsNurneric( I_rec_id) ) then 

if 1_action = "Update" or l_action = "Delete" then 
' editAccept I_rec_id, Inaction, l_Co!umnCount, l_setupTabLink,l_sp_edit 
' must skip 0 and 2 
l_0 = Request("P_l") 
I J = RequestfP J") 
l_2 = Request("P_4") 
l_3 = Requester J") 
1_4 = Rcquest("P_6") 
l_5 = Rcquest("P 7") 
1_6 = Request("P~8") 
1_7 = RequestfPjV) 
l_8 « Requester JO") 
1_9 = Request("P IP) 
I 10 = Request("P 12") 
fll = RcquestfP" 13") 
I_12 = Request("P 14") 
IJ3 -Request("P_15") 



objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_editjcey" 

objCMD.CommandType = adCmdStoredProc 
objCMD.Parameters.Refresh 

USER SUPPLIED 
if l_debug= I then 

Rcsponse.Write "<br>l "& I J) 
Response. Write "<br>2 " & IJ 
Response. Write "<br>3 " & validatePickList (l_2)* 
Rcsponse.Write "<br>4 " & validatePickList (I_3) 

Response. Write "<br>5 " & validatePickList (1_4) 
Rcsponse.Write "<br>6 " & validateNumber(l_5) 
Response. Write "<br>7 " & validatePickList (1_6) 
Rcsponse.Write "<br>8 " & validateNumber ( f 7) 
Response.Write "<br>9 " & validateNumber ( IJJ) 
Rcsponse.Write "<br> 10 "& validatePickList (\_9) 
Rcsponse.Write "<br>ll " & validatePickList (I JO) 
Rcsponse.Write "<br>12 " & validatePickList (IJ I) 
Rcsponse.Write "<br>13 " & validatePickList (1J2) 
Response.Write "<br>14 " & l_13 
Response.Write "<br>t5"& validatePickList (I 1) 

SUPPLIED BY ME 

end if 

objCMD.Parameters(l). Value = 1_0 

objCMD.Parameters(2). Value = VALIDATEnUMBER(lJ) 

objCMD.Parameters(3). Value = validatePickList (1_2) 

objCMD.Parametcrs(4). Value = validatePickList (l_3) 
objCMD.Parameters(5). Value = validatePickList (l_4) 
objCMD.Paramcters(6). Value = validateNumber (1_5) 

objCMD.Paramcters (7). Value = validatePickList (1_6) 
objCMD.Parameters(8). Value = validateNumber ( l_7) 
objCMD.Parameters(9). Value = validateNumber ( 1_8) 
objCMD.Parameters(lO). Value = validatePickList (l_9) 
objCMD.Paramctcrs(l I). Value = validatePickList (I JO) 
objCMD.Paramctcrs(l2). Value = validatePickList (IJ 1) 
objCMD.Parameters(13). Value = validatePickList (1J2) 
objCMD.Parameters(14). Value = IJ3 
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objCMD.Parameters(15).Value = l_Rcc_id 
if l_action = "Delete'* then 
* THis is the isDelete Parametere 

objCMD.Parameters( 16). Value = 1 

else 

objCMD.Parameters( 16). Value = 0 

end if 
if l_debugo 1 then 

Set TempNonSessionVar * objCMD.ExecuteO 
Response.Redirect "adminkeysrighLasp" 

end if 



else 



strSQL = l_query 



p KEY desc 

*MAIL_QTY 

•MAIL_QTY_OVERRiDE 
' LIST_CAT_NAME 
' LIST NAME 
1 UST SEGMENT NAME 



ObjRST.open strSQU strSQLOLEDB, adOpenStatic, adLoclcOptimistic 
If (ObjRST.EOF » False) then 
I col_values(0) = ObjRST.Fields(O) 'key 

l_col_values(l) = ObjRST.Fields(l) 
I col values(2)= ObjRST.Fields(2) 
I col values(3) = ObjRST.Fields(3) 
l_col values(4) = ObjRST.Fields(4) 
l_col_values(5)= ObjRST.Ficlds(5) 
l_coI_vaJues(6) = ObjRST.Fields(6) 
l_col_vaIues(7) = ObjRST.Fields(7) * list_cost_actual_cpm 
Ccof values(8) ~ ObjRST.FieIds(8) * list_costJ)asis 
l_cof values(9) = ObjRST.Fields(9) ~ * *list_cost_factor 
f col_values( 1 0) = ObjRST.Fields( 1 0) 'merge_purge_qty 
l_cof vaiues( 11)= ObjRST.Fields( II) ' e_set_name 
I col values(12) = ObjRST.Fields(12) ~r seijiame 
f cof values(13) = ObjRST.Fie1ds(l3) TANEL_PKG 
l_col_values(l4) = ObjRST.FieIds( l4) ' subtotal flag 
l_col_va!ues(15) = ObjRST.Fields(I5) * optional_efifort_id 
IJccy « ObjRST.Fields(TULL_PROMOJCEY , •) 

if I_debug= I then 

l_col_values(0) 
l_col valuesCO&^br^' 
I_cofvalues(2) & "<br>" 
l_col_va!ues(3) & "<br>" 
l_coI_values(4) & "<br> - ' 
l_cof values(5) & "<br>" 
I cofvalues(6)& ,i <br>" 
fcol values(7)&"<br>" 
f cof values(8) & "<br>* 
i_cofvalues(9) & "<br>" 
l_cofvaJues(10) & •<br>" 
1 coLvaluesOO&^br^ 
fcoLvaluesC^&^br^ 



Response. Write 
Response. Write 
"Response. Write 
'Response. Write 
'Response. Write 
'Response. Write 
Response. Write 
Response. Write 
Response. Write 
Response. Write 
Response. Write 
Response. Write 
Response. Write 
end if 

end if 

objRST.closc 
end if 



end if 
fori = 0to 16 
ifi = 0then 
l_col_typcs(i) = 0 
elseif i = 2 then 
l_col_types(i) = 0 
elseif i = 4 then 
l_coI_types(i) = 2 

I col_desc I (^"select list cat_name from list_CATS where " 

" & " PRODUCT_ID=" & Session(-PRODUCT_ID") & " order by list_cat_name * 
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l_col_desc2(i)="SELECT List Cat" 
elseif i = 5 then 
l_coI_types(i) = 2 

|_coI_dcsc 1 (i)=" select list_Name from list_namcs where " _ 

& • PRODUCTJD=" & Session("PRODUCTJD") & * order by list_name " 
l_col_desc2(i)="SELECT List Name" 
elseif i - 6 then 
I_coI_types(i) = 2 

I_col_descl(i)="select list_segment_name from list_segments where " 

& • PRODUCT JD=" & Session("PRODUCT_lD") & " order by list_segment_name " 
l_coI_desc2(i)="SELECT List Segment" 
elseif i = 8 then 
l_col_types(i) = 3 

Lcol_descl(i)="Mail Qty,Merge Purge Qty" 
f col_desc2(i)="SELECT List Cost Basis" 
elseif i « 1 1 then 
l_co!_typcs(i) = 2 

l_col_descl(i)="selecte_sct_name from EXPENSE_SETS where " _ 

& " PRODUCT_ID=" & Sessionf PRODUCT JD") & " order by c_sct_name " 
l_col_desc2(i)="SELECT Expense Set" 
elseif i = 12 then 
l_col_types(i) = 2 

f col descl(i)="select r_sct_name from REVENUE_SETS where " _ 

&~" PRODUCTJD^" & Session("PRODUCT_ID") & " order by r_set_name " 
l_col_desc2(i)="SELECT Revenue Set" 
elseif i = 13 then 
l_col_types(i) ~ 2 

f cof dcscl(i)="select package_name from PROD_PANEL_PACKAGE where " _ 

& " PRODUCTJD=" & Scssion("PRODUCT_lD") & " order by package_name " 
l_col_desc2(i)-"SELECT Panel Pkg" 
elseif i = 14 then 
l_col_typcs(i) = 3 
l3ol_desc 1 (i)="True,False,Split" 
l_coI desc2(i)--SELECT Subtotal Flag" 
else 

l_col_types(i) - 1 

l_col_descl(i)="" 

l_col_desc2(i)=" " 
end if 
next 

* call setupTab's editmain to paint screen for user input 
editHeading t_file, l_file, I_rec_id 



' call setupTab's editmain to paint screen for user input 

editComplex I_Title f l_setupTabLink, " l_showPrevSelectionJ_col_names,l_col_values,l_col_types, l_col_desc 1 ,l_col_desc2, 
l_ColumnCount 

' call setupTab's editBottom to close body, html, form 
editBottom 



%> 
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editlistcat.asp 

<%@ Language=VBScript %> 

<!— ^include file=".Vsupport/global_constants.asp" -> 

<!-#include file==".ysupport/dbConnection.asp" -> 

<!- Sinclude file=\Vsupport/adoUtils.asp" -> 

<!- # include file^Wsupport/srcTab.asp" -> 

<!- # include file=".ysupport/setupTab.asp" -> 

<% 

l_ColumnCount - 2 
l_rec_id = Request QueryString("Z") 
If Request FormCUPDATEx") o "" then 
l_action = 'Update" 

elsclf RequestformfDELETE.x") o "" then 
l_action = "Delete" 

end if 

L s P_ c<lit = "sp_Edit_Prod_List_Cat" 
IJile = "editListCatasp" 

dim l_col_names(2) 
dim l_col_va!ues(2) 
l_TiUe = " List Category " 

l_setupTabLink ~ "setupListCat.asp" 
l_showPrevSelcction- false 

l_col_names(0) = "LIST CATEGORY" 
l_coI_names(l) = "DESCRIPTION" 

l_qucry = "select LIST_CAT NAME. LIST_CAT_DESCR " _ 
& " FROM LisTcats " _ 
& " WHERE rec id = " & cint(l_rec Jd) 



' Response. Write I_rec_id 
If (IsNumeric( l_rec_id) ) then 

if l_action - "Update" or !_action = "Delete" then 

editAccept l_rec_id, I_action, l_ColumnCount, l_setupTabLink,l_sp_edit 
else 

strSQL = l_query 

ObjRST.open strSQL, strSQLOLEDB, adOpcnStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
I col_values(0) = ObjRST.Fields(0) 

l_col_values(l) = ObjRST.Fields(l) 

end if 

objRST.close 
end if 

end if 



' call setupTab's editmain to paint screen for user input 
editHeading l_file, l_file, I _rec_id 

'assign values to variables for setupTab's editMain 



' call setupTab's editmain to paint screen for user input 

editMain I_TitleJ_senjpTabLink,l_showPrevSeIection,l_col_namesJ_col_valuesJ_CoH 
' call setupTab's editBottom to close body, html, form 
editBottom %> 
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editlistname.asp 

<%@ Languagc=VBScript %> 

<!- # include fiIe="../support/global_constants.asp" — > 

<!— # include fiIe="../support/dbConnection.asp" — > 

<!- # include file=**../support/adoUtils.asp" -> 

<!- # include file^"../suppO!i/srcTab.asp" -> 

<!- # include file="../support/setupTab.asp" -> 

<% 

dim l_col_names(2) 
dim l_col_vaiues(2) 

l_Co!umnCount = 2 
I rcc id - RequestQueryString("Z") 
If Request Form("UPDATE.x") o " then 
l_action = "Update" 

elself Request form("DELETE.x") o "" then 
Inaction = "Delete" 

end if 

l_sp_edit = "sp_Edit_Prod_List_Name" 
I file - "editListName.asp* 
fTitle = " List Name" 
l_setupTabLink = "setupListName.asp" 
l_showPrevSelection= false 

l_col_names(0) = "LIST NAME" 
I_coI_names(l) = "DESCRIPTION" 

l_query = "select LIST_NAME, List_Name_description " _ 
& " FROM List_names " 
& " WHERE rec_id = " & rint(l_rec_id) 



' Response. Write l_rcc_id 
If (IsNumeric( t_recjd) ) then 

if l_action = "Update" or l_action = "Delete" then 

editAccept l_rec_id, l_action, l_Co!umnCount, l_setupTabLinkJ_sp_edit 
else 

strSQL ~ l_query 

ObjRSTopen strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRSTEOF = False) then 
l_col_vaJues(0) = ObjRST.FieIds(0) 

l_col_vaJues(l)= ObjRST.Fields(l) 

end if 

objRST.dose 
end if 

end if 



* call setupTab's editmain to paint screen for user input 
editHeading I_file, l_filc, l_rec_id 

'assign values to variables for setupTab's editMain 



' call setupTab's editmain to paint screen for user input 
editMain l_TiUeJ_setupTabLink,l_showPrevSeI^ 
' call setupTab's editBottom to close body, html, form 
editBottom %> 
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editlistsegment.asp 

<%@ Language=VBScript %> 

<!- ^include file= s "../support/global_constants.asp" -> 

<!- ^include ftIe=".ysupport/dbConnection.asp" -> 

<!- ^include file="../support/adoUtils.asp" -> 

<!— # include file^.ysupport/srcTab.asp" -> 

<!— #include flIc=".ysupport/sctupTab.asp" — > 

<% 

l_Co!umnCount = 2 
l_rcc_id = RequesLQueryString("Z") 
If RequestForm("UPDATE.x") o "" then 
t_action - "Update" 

clself Request formfDELETE.x") o "" then 
l_action = "Delete" 

end if 

l_sp_edit = "sp_Edit_Prod_List_Segment" 
l_filc = "editListSegmentasp" 

dim l_col_names(2) 
dim l_col_vaJues(2) 
IJTitle = " List Segment " 

l_setupTabLink = "setupListSegment.asp" 
i_showPrevSelection= false 

l_co!_names(0) = "LIST SEGMENT" 
l_col_names( 1 ) = "DESCRIPTION" 

l_query = "select list_segment_name, Iist_segment_description " _ 
& " FROM List_Segments " _ 
& " WHERE rec_id - " & cint(!_rec_id) 



' Response. Write l_rec_id 
If (IsNumeric( l_rec_id) ) then 

if l_action = "Update" or l_action - "Delete" then 

editAcccpt l_rec_id, l_action, I_ColumnCount, I_setupTabLink,l_sp_edit 
else 

strSQL = I_query 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
l_col_values(0) = ObjRST.Fields(O) 

l_coI_values(I)= ObjRST.Fields(l) 

end if 

objRST.close 
end if 

end if 



' call setupTab's editmain to paint screen for user input 
editHeading l_file, l_file, l_rec_id 

'assign values to variables for setupTab's editMain 



* call setupTab's editmain to paint screen for user input 

editMain l_TitIeJ_setupTabLink,l_showPrevSelectionJ_coI_namesJ_col_values,l_CoIumnCount 

* call setupTab's editBottom to close body, html, form 
editBottom %> 
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editnanel.asp 

<%@ Language=VBScript %> 
<!- U include file=".Vsupport/gIobaJ_constants.asp" -> 
<!- U include file="../support/dbConnection.asp" -> 
<!- ^include file=".Vsupport/adoUtils.asp" -> 
<!- # include file^'.Vsupport/srcTab.asp" -> 

<% 

Idebug = 0 

If Request Form(" UPD ATE.x") o "" then 

IJ>utton = "Update" * 
elself Requeslform("DELETE.x") o then 

l_button = "Delete" 
end if 



Irecid = Request.QueryString("Z") 

"Response. Write l_rec_id 

If (IsNumeric( l_rec_id) ) then 

if L_button = "Update" or l_bution = "Delete" then 

l_panel_namc = Request("P_PANEL_NAME") 

I_pancf type = Request("P_PANEL_TYPE") 

Ppanef subtype =Request("P_PANEL_SUBTYPE") 

Ijestjypc =Request("P_TEST_TYPE") 

l_panel_offer=Request("P PANEL_OFFER") 

l_panel_ofTer_price =Request("P_PANEL_OFFER_PRICE") 

I_panel_pkg =Rcquest("P_PANEL_PKG") 

I_panel_premium =Request("P_PANEL_PREMIUM") 

I_panel_date_start =Request("P_PANEL_DATE_START) 

l_pancl_datc_cnd «Request("P_PANEL_DATE_END") 

l_e_set_name =Request("P_E_SET_NAME") 

l_r_set_name =RequestCPJR JS ET~N AME") 

l_newstand_sale_marker =Request("P_NEWSTAND_SALE_MARKER") 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit_paner 
USER SUPPLIED 
if l_debug= ! then 
Response. Write "l_panel_namc " & l_panel_namc & "<BR>" 

Response. Write "l_paneljype " & l_panel_type & "<BR>" 

Response. Write "I _panel_subtype " & l_panel_subtypc & "<BR>" 

Response. Write "I_test_typc " & ljcst_typc & "<BR>" 

Response. Write "l_paneI_orTer " & l_panel_ofTer & "<BR>" 

Response. Write "I_panel_offer_price " & I_paneI_ofTer_price & "<BR>" 

Response. Write "I_panel_j>kg " & l_panel_pkg & "<BR>" 

Response. Write "I_j>anel_premium " & l_panel_premium & "<BR>" 

Response. Write "I_panel_date_start " & l_panel_date_start & "<BR>" 

Response. Write "I_panel_date_end " & l_panel_date_end & "<BR>" 

Response. Write "l_e_set_name " & l_e_set_namc &"<BR>" 

Response. Write "l_r_set~name " & l_r_set_namc & "<BR>" 

Response. Write "I_newstand_sale_markcr " & l_newstand_sale_marker & "<BR>" 

end if 

objCMD.CommandType = adCmdStoredProc 
objCMD. Parameters. Refresh 
objCMD.Parameters( 1). Value = I_panel_name 
objCMD.Parameters(2). Value = validateDate (l_panel_date_start ) 
objCMD.Paramcters(3). Value = ValidatePickList (lj>anel_type) 
objCMD.Parameters(4). Value = ValidatePickList (l_panel_subtype ) 
objCMD.Parameters(5). Value = ValidatePickList (l_test_type ) 
objCMD.Parameters(6). Value = ValidatePickList (l_panei_pkg ) 
objCMD.Parameters(7). Value = ValidatePickList (l_c_sct_namc ) 
objCMD.Parameters(8). Value = ValidatePickList (l_r_set_name ) 
objCMD.Parameters(9). Value = ValidatePickList (l_newstand_sale_marker) 
objCMD.Parameters( 10). Value ~ session("U") 



SUPPLIED BY ME 

objCMD.Parameters(I I). Value = Lrccjd 
if IJ>utton = "Delete" then 
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' THis is the isDelete Paramctere 

objCMD.Parametcrs(12). Value = 1 



else 
end if 



objCMD.Parameters(I2).VaIue = 0 



Set TempNonSessionVar = objCMD.ExecuteO 
Response. Redirect "admin6a.asp?display=r 



else 



l_action = false 

strSQL = "select PANEL_NAME, PANEL_TYPE, PANEL_SUBTYPE, " _ 
& ■ TESTTYPE, PANELJDFFER, PANEL_OFFER_PRICE, PANEL_PKG, " _ 
& " PANEL_PREMIUM, PANEL_DATE_START, PANEL_DATE_END > ' _ 
& " E_SET_NAME, R_SET_NAME, newstand_sale_markcr " _ 
& " from PANELS " _ 
& " where recjd = " & cint(!_rec_id) 

ObjRST.open strSQU strSQLOLEDB, adOpenStatic, adLockOptimistic 

If (ObjRST.EOF = False) then 
l_panel_name = objRST.Fields("PANEL_NAME") 

l_panel_type - objRST.Fields("PANEL_TYPE") 
l_panel_subtypc =objRST.Fields( , 'PANEL_SUBTYPE* , ) 
l_test_tvpe =objRST.FieldsCTEST_TYPE") 
l_panel_offer =objRST.Fields("PANEL_OFFER") 
l_panel_oflfer_price =objRST.Fields("PANEL_OFFER_PRICE") 
l_panel_pkg =^bjRS*i\FicldsfPANEL_PKG") 
l_panel_premium ^bjRST.FieldsCPANEL^PREMIUM") 
I _panel_date start =obj RST.Fields("PANEL_DATE_START") 
l_panel_datc][cnd =objRST.Fields( ,, PANEL - DATE_END") 
l_e_set_name =objRST.FieldsfE SET_NAME") 
l_r_set_namc =objRST.FieldsCR_SET_NAME") 
l_ne^tand_saIe_ma^ker^bjR5T.Fie!ds("newstand_sale_^na^ke^ ,, ) 

end if 

objRST.close 
end if 
end if 



%> 
<html> 
<head> 

<title>lMT Network</titIe> 
</head> 

<body bgcolor= w #99CCFF' t vlink^OOOOOO" link="003366"> 
<%' Response. Write "<BR>" & l_panel_name 

Response. Write "<BR>" & I_panel_type 
Response. Write m <BR> m & l_panel_subtype 
Response. Write "<BR>" & l_test_typc 
Response. Write "<BR>" & I _j>anel_ofTcr 
Response.Write "<BR>" & l_pancl_offerj>rice 

Response. Write "<BR>* & l_panel _j>kg 
Response.Write *<BR>" & l_panel_premium 
Response.Write "<BR>" & !_panel_date_start 
Response.Write "<BR>" & l_panel_date_end 
Response.Write "<BR>" & l_e_set_name 
Response.Write "<BR>" & l_r_set_name 
%> 

<form meihod="post" action="editPanel.asp?Z=<%Response. Write l_rec_id %> " id=forml name=forml> 
<table width="640" border^" cellpadding= ,, 2 ,, > 
<% prcvSelections(5) %> 
<tr vaIign="top"> 

<td align="lefV width="640" colspan^S^ 

<img src=".7graphics/editl222.gir width="27" height="14"x/td> 
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</tr> 

<tr va!ign="top*> 
<td align="left" width="640" coIspan="3"> 
<tabtc width="500" border="0" cellspacing^" cellpadding="2"> 
<tr valign="top"> 
<td height="25" align="Ieft"> 
<div a!ign="left"X/div> 
</td> 

<td height="25" align="lefV> 
<input type- IMAGE' Valuer" UPDATE" N am c=" UPDATE " 

src=".ygraphics/submitI222.gir width="54" height="16" border="0"> 
<img src=".7graphics/blank 1 222.gi V width="20" height=" 1 6" border=0> 
<SCRJPT LANGU AGE=" JavaScript 1.1 "> 

<!- Comment out script for old browsers 
function confirm_delete_panel() { 

return confirm(This will delete the panel and all its keys. This operation can not be undone. Are you 
sure you wish to delete this panel?"); 

) 

//-> 

</SCRIPT> 

<input type^lMAGE' Valuer" DELETE" Name=" DELETE" 

src==".ygraphics/delctel222.gir width="53" height^- 1 6" onClick="return confirrn_delete_j>anel0'' border=0> 

<font face=" Verdana, Arial, Helvetica, sans-serif 
size="-4"> 
<a href="admin6a.asp*>Return 
to Panel</ax/fontx/td> 
</tr> 

<tr> 

<td bgcolor="003366" height="20" width="140" align="center"> 
<div align=" center" > 

<font face^" Verdana, Arial, Helvetica, sans-serir color="#FFFFFF"> 
<bxfont size="l"> 

PANEL NAME 
</fontx/bx/fontx/div> 
</td> 
<TD align="lefT> 

<%if not l_action then %> 
<input type^TEXT NAME- P_PANEL_NAME' 
id=0 value-<%Response. Write l_panel_name %>' maxlength=250> 

<% else 

Response. Write l_panel_name 
end if %> 

</td> 
</UXtr> 

<td bgcolor^"003366" height^"20" width=" 140" align="center"> 
<div align="center"> 

<font face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfontsize="l"> 

PANEL START DATE 
</fontx/bx/fontx/d i v> 
</td> 

<TD align="left"> 

<%ifnotl action then %> 

<input type="TEXT" NAME-P_PANEL_DATE_START 
id=0 value^^Response. Write I_panel_datc_start %>'> 

<% else 

Response. Write l_panel_datc_start 
end if %> 

</td> 
</trxtr> 

<td bgcolor="003366" height="20" width="140" align="center"> 
<div align="center"> 

<font face=" Verdana, Arial, Helvetica, sans-serir co!or="#FFFFFF"> 
<bxfont size="l"> 

PANEL TYPE 
</fontx/bx/fontx/div> 
</td> 
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<TDalign="left"> 
<%if not l_action then 
strSQL = "select PANEL_TYPE_NAME from CORP_PANEL_TYPE" 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "p_panel_type\6, "SELECT TYPE", l_panel_type 
objRST.close 
else 

Response. Write l_panel_type 
end if %> 

</td> 
</trxtr> 

<td bgcotor="003366 M heighr="20" width="140" align="ccnter"> 
<div align="center"> 

<font facc=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF' , > 
<bxfontsize="r> 

PANEL SUBTYPE 
</font>^x/fontx/div> 
</td> 

<TD align^left"> 

<%if not I_action then 

strSQL = "select PANEL_SUB_TYPE_NAME from CORP_PANEL_SUB_TYPE" 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "p_panel_subtype",6, "SELECT SUB TYPE", l_panel_subrype 
objRST.close 
else 

Response.Write l_panel_subtype 
end if %> 

</td> 
</trxtr> 

<td bgcolor="003366" height="20" width="I40" align="center"> 
<div align="center"> 

<font face=" Verdana, Arial, Helvetica, sans -sen f color="#FFFFFF"> 
<bxfont size=" 1 "> 

PANEL TEST TYPE 
</fontx/bx/fontx/div> 
</td> 



<TD align="left"> 
<%if not l_action then 

strSQL = "select PANEL_TEST_TYPE_NAME from CORP_PANEL_TEST_TYPE" 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "p_test_type\6, "SELECT TEST TYPE", l_test_type 
objRST.close 
else 

Response.Write l_test_type 
end if %> 

</td> 
</trxtr> 

<td bgcolor="003366" height="20" width="I40" aJign="cenler"> 
<div align="center"> 

<font face=" Verdana, Arial, Helvetica, sans-serif color=*#FFFFFF"> 
<bxfontsizc="l"> 

PACKAGE 
</fontx/bx/fontx/div> 
</td> 

<TD align="left"> 



<%if not l_action then %> 
<% strSQL = "select PACKAGE.NAME from PROD_PANEL_PACKAGE WHERE PRoduct_id =" & 
Session("PRODUCT_ID") 

objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
ShowQueryListBox objRST, "P_PANEL_PKG" & i,6. "SELECT PACKAGE", 

l_panel_pkg 

objRST.close 

%> 

<% else 

Response.Write l_panel_pkg 
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end if %> 

</td> 
</trxtr> 

<td bgco!or="003366" height="20" width="140" align^center^ 
<div align="center"> 

<font face="Verdana, Arial, Helvetica, sans-serir co!or="#FFFFFF"> 
<bxfont size="l"> 

EXPENSE SET 
</font></bx/fontx/div> 
</td> 

<TD align^"lefV> 



<%if not I_action then %> 
<% strSQL = "select e_set_name from EXPENSE SETS where " _ 
& - PRODUCTJD-" & Session("PRODUCTJD") 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST. " p_E_S ET_N AM E" & i,6, "SELECT EXPENSE SET", !_E_SET_NAME 
objRST.close %> 

<% else 

Response. Write l_e_set_name 
end if %> 



</td> 
</trxtr> 

<td bgcolor="003366" height="20" width="140" align="ccnter"> 
<div align =,, center"> 

<font face^" Verdana, Arial, Helvetica, sans-seriP coIor="#FFFFFF"> 
<bxf 0 ntsize="P> 

REVENUE SET 
</fontx/bx/fontx/div> 
■ </td> 

<TD align="lefT> 

<%if not l_action then 

strSQL - "select r_set_name from R£VENUE_SETS where " _ 
& - PRODUCT_ID=" & SessionfPRODUCTJD") 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

showQueryListBox objRST, "p_r_SET_NAME",6, "SELECT REVENUE SET, 

1_R_SET_NAME 

objRST.close 
else 

Response. Write 1_R_SET_NAME 
end if %> 

</td> 
</tr> 

<tr> 

<td bgco!o^="003366 ,, height="20" width=" 140" align="center"> 
<div align="center"> 

<font face=" Verdana, Arial, Helvetica, sans-serir co!or="#FFFFFF"> 
<bxfont size="r> 

NEWSSTAND SALE 
</fontx/bx/fontx/div> 
</td> 

<TD align="left"> 

<%if not l_action then 
dim vats 

vals = "N,Y" 

showLOVListBox vals, "P NEWSTAND_SALE_MARKER", 2, " — ",1 newstand_sa!e_marker 
%> ~ 



<% else 

Response. Write l_panel date start 
end if %> 

</td> 
</tr> 
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</table> 

</td> 
</tr> 

</tab!e> 



<P> </P> 

</BODY> 
</HTML> 
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cditpanelpackage.asp 

<%@ Language= VBScript %> 

<!- ^include file~"../support/global_constants.asp" — > 

<!- tfinclude file=\./support/dbConnection.asp" — > 

<!- ^include file="../support/adoUtils.asp ,, -> 

<!— flinclude file^Wsupport/srcTab.asp" — > 

<!— ^include file^Wsupport/setupTab.asp" — > 

<% 

l_CoiumnCount = 2 
l_rcc_id = RequestQueryString("Z") 
If Request.Form("UPDATEx") o then 
Inaction =* "Update" 

elsclf Request.form("DELETE.x") o mn then 
l_action = "Delete" 

end if 

l_sp_edit = "sp_Edit_Prod_Panel_Packagc" 
dim l_col_names(2) 
dim l_col_values(2) 
l_Title = " Panel Package " 
l_setupTabLink = "sctupPanclPackage.asp" 
I_showPrevSclection= false 
1 — file = "cdiiPanelPackage.asp" 

l_col_names(0) = "PANEL PACKAGE" 
!_col_names(l) = "DESCRIPTION" 

Lquery « "select Package_NAME, PACKAGE_DESCRIPTION " _ 
& " FROM prod_panel_package " _ 
& " WHERE rec_id = " & cint(l_rec_id) 



' Response. Write l_rec_id 
If (IsNumeric( l_rec_id) ) then 

if l_action = "Update" or l_action = "Delete" then 

editAccept l_rec_id, l_action t l_ColumnCount, I_setupTabLinkJ_sp_edit 

else 

strSQL = l_query 

ObjRST.open strSQU strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
l_col_values(0) = ObjRST.Fields(O) 

l_col_values(l) = ObjRST.Fields(I) 

end if 

objRST.close 
end if 

end if 



' call setupTab's editmain to paint screen for user input 
editHeading l_fiic, l_file, l_rec_id 
'assign values to variables for setupTab's editMain 
' call setupTab's editmain to paint screen for user input 

editMain l_Tit!c,I_setupTabLink,I_showPrevSeIection,l_col_namesJ_col_values f l_ColumnCount 
' call setupTab's editBottom to close body, html, form 
editBottom %> 
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cditpanelsubrvne.asp 

<%@ Languagc=VBScript %> 

<!- ^include file=".ysupport/gIobal_constants.asp" -> 

<!- ^include File s ="../support/dbConnection.asp" -> 

<!- ^include file="../support/adoUtiIs.asp" -> 

<!- #includc file="../support/srcTab.asp" -> 

<!- ^include file^ysupport/setupTabasp" -> 

<% 

l_ColumnCount = 2 
I rec_id = Request QueryString("Z") 
Ff Request Form("UPDATE.x") o mm then 
Inaction = "Update" 

elself Requestform("DELETE.x") o "" then 
l_action = "Delete" 

end if 

l_sp_edit = "sp_Edit_Corp_Panel_Sub_Type" 
dim l_col_names(2) 
dim l_col_values(2) 
l_TiUc = "Panel Sub Type" 
I_setupTabLink = "setupPanelSubType.asp" 
l_showPrevSeIection= false 
l_file =» "editPanelSubType.asp" 

l_co!_names(0) = "PANEL SUB TYPE" 
l_col_names(l) = "DESCRIPTION" 

l_query = "select PANEL_SUB_TYPE_NAME, PANEL_SUB_TYPE_DESCR " _ 
& " FROM corp_panel_sub type " _ 
& • WHERE recjd = " & c7nt(l_rec_id) 

' Response. Write l_recjd 
If (IsNumeric( l_rec_id) ) then 

if l_action = "Update" or I_action = "Delete" then 



editAccept l_rccjd, I_action, l_ColumnCount, l_setupTabLinkJ_sp_edit 
else 

strSQL - l_query 

ObjRST.open strSQL, strSQLOLEDB, adOpcnStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
l_col values(0) = ObjRST.Fie!ds(0) 

l_col_values(l)= ObjRSTFields(l) 

end if 

objRST.close 
end if 

end if 



' call setupTab's editmain to paint screen for user input 
editHeading l_fi!e, I — file, l_rec_id 

'assign values to variables for setupTab's editMain 



' call setupTab's editmain to paint screen for user input 

editMain l_TiUeJ_S€mpTabLink,l_showPrevSelectionJ_col_names,l_col - values,l_ColumnCount 
' call setupTab's editBottom to close body, html, form 
editBottom %> 
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editpaneltesttvpe.asp 



<%@ Unguage=VBScript%> 

<!- U include file="../support/gIobal_constants.asp" -> 

<!- # include file="../support/dbConnection.asp" -> 

<!- ^include file=*.-/support/adoUtils.asp" -> 

<!— U include file="../support/srcTab.asp" — > 

<!- U include file=\Vsupport/setupTab.asp" -> 

<% 

l_CofumnCount = 2 
l_rec id = Request.QucryString("Z") 
If RequestForm("UPDATE.x") o " then 
l_action = "Update" 

elself Request.form("DELETE.x") o "" then 
I_action = "Delete" 

end if 

l_sp_edit = "sp_Edit_Corp_Panel_Test_Type" 
dim l_co!_names(2) 
dim l_col_values(2) 
l_Title = "Panel Test Type" 
l_setupTabLink - "setupPanelTcstType.asp" 
l_showPrevSelection= false 
l_file = "editPanelTestType.asp" 

I col_names(0) = "PANEL TEST TYPE" 
f col_names(l) = "DESCRIPTION" 

I_query = "select P AN E L_TEST_TYP E_N AM E , PANEL_TEST_TYPE_DESCR " _ 
& " FROM corp_panel_test_typc " _ 
& " WHERE rec Jd = " & cint(l_rec_id) 

' Response. Write I_rcc_id 
If (lsNumcric( I_rec_id) ) then 

if I_action - "Update" or l_action - "Delete" then 



editAccept l_rec_id, l_action, l_ColumnCount, l_setupTabLink,l_sp_edit 



strSQL = I_query 

ObjRST.open strSQL, strSQLOLEDB, adOperiStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
I_col values(O) = ObjRST.Fields(O) 

I_col_values(l) = ObjRST.Fields(l) 

end if 

objRSTxlose 
end if 

end if 



' call setupTab's editmatn to paint screen for user input 
editHeading IJile, l_file, l_recjd 

'assign values to variables for setupTab's editMain 



' call setupTab's editmain to paint screen for user input 
editMain l_TiUeJ_senjpTabLink t i_showPrevSelecta 
' call setupTab's editBottom to close body, html, form 
editBottom %> 



else 



Integrated Marketing Technology 



9/27/00 2:22 PM 



Page 149 of 200 



IMT Subscription Marketing Reporting System 



Integrated Marketing Technology 9/27/00 2:22 PM 



Page 150 of 200 



IMT Subscription Marketing Reporting System 



tditpancltvpe.asp 

<%@ Language=VBScript %> 

<!- U include file=".isupport/global_constants.asp" -> 

<!-# include file=\./support/dbConnection.asp" -> 

<!-#include file=".Jsupport/adoUtiIs.asp" -> 

<!- # include file="../support/srcTab.asp* — > 

<!- #include file="„/support/setupTab.asp" -> 

<% 

l_ColumnCount = 2 
I_rcc_id = RequestQueryString("Z") 
If Request Form("UPDATE.x") o "" then 
l_action = "Update" 

elself Request formfDELETE.x") o "" then 
l_action = "Delete" 

end if 

l_sp_edit = "sp_Edit_Corp_Panel_Typc" 
dim l_col_names(2) 
dim l_col_values(2) 
l_Title = "Panel Type" 
l_setupTabLink = "setupPanelTypc.asp" 
l_showPrevSeIection= false 
l_filc = "editPanelType.asp" 

l_col_namcs(0) = "PANEL TYPE" 
I_col_names(l) = "DESCRIPTION" 

l.query - "select PANEL_TYPE_NAME, PANEL_TYPE_DESCR " _ 
& " FROM corp_panel_type " _ 
& " WHERE rec_id = " & cint(l_rec_id) 

' Response. Write l_rec_id 
If (lsNumeric( I_rec_id) ) then 

if l_action = "Update" or l_action = "Delete* then 



editAccept l_rcc_id, l_action, l_ColumnCount I_setupTabLink,l_sp_edit 
else 

strSQL = l_query 

ObjRST.opcn strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF « False) then 
l_col_values(0) = ObjRST.Fields(O) 

l_col_values(l) « ObjRST.Fields(l) 

end if 

objRST.closc 
end if 

end if 



' call setupTab's editmain to paint screen for user input 
editHeading l_file, l_file, l_recjd 

'assign values to variables for setupTab's editMain 



' call setupTab's editmain to paint screen for user input 

editMain l_TitIe,l_sctupTabLink ? l_showPrevSeIection,l_col_names f I_coI_vaJues t l_CoIumnCount 
' call setupTab's editBottom to close body, html, form 
editBottom %> 
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editpriorsrcdcsc.asp 



<%@ Unguage=VBScript %> 

<!- U include fi!e="../support/g!obaJ_constants.asp" -> 

<!- ^include file-".7support/dbConnection.asp" -> 

<!- #include fiIe=".7support/adoUti1s.asp" -> 

<!- ^include fiIe="../support/srcTab.asp" -> 

<!- # include file=\./support/setupTab.asp" -> 

<% 

dim l_col_names(8) 
dim l_col_vaiues(8) 

l_Co!umnCount = 8 
l_rcc id = RequestQueryString("Z") 
If RequestForm("UPDATE.x") o then 
I_action - "Update" 

elself Requestform("DELETE.x") o then 
l_action = "Delete" 

end if 

l_recjd = Request.QueryString("Z") 
l_sp_edit - "sp_edit_prior_Source_desc" 
l_file = "editPriorSrcDesc.asp" 
l_TitIe = "Prior Source Description" 
l_setupTabLink = "setupPriorSrcDesc.asp" 
l_showPrevSclection= false 

l_query = "select prior_sourcc_identifier, prior_source_desc, billing_cur_src_desc, model_sourcc_cat, 
model_source,agent_src_desc , valid_from_date 

& " valid_to_date 

& " FROM Prior sourcc_desc " _ 

& " WHERE rec'id = " & cint(I_rec_id) 

if (I_action = "Update" or Inaction = "Delete") and isnumeric(l_rec_id) then 

'editAccept l_rec_id, l_actioru l_ColumnCount l_sctupTabLink,i_sp_edit 

prior_source_idcntifier = request form("P_0") 

prior_source_desc.= request. form("P_r) 

billing_cur_src_desc = request. form("P_2") 

model_source_cat = request form("P_3") 

model_source - request. form("P_4") 

agent_src_desc = request form("P_5") 

valid_from_date = request.form("P_6") 

valid_to_date - requestform("P_7") 

'response.write(prior_source_identifier & "<br>") 
'response.write(prior_source_desc & "<br>") 
'response. write(billins_cur_src_desc & "<br>") 
'response.write(modeI_source_cat & "<br>") 
'response. write(modeI_source & "<br>") 
'rcsponse.write(agent_src_desc & "<br>") 
'response. write(valid_from_date & "<br>") 
'response. write(valid_to_date & "<br>") 
'response. write(l_action) 
'response.wri te(l_rec_id) 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText - "sp_edit_prior_source_desc" 
objCMD.CommandType - adCmdStoredProc 
objCMD. Parameters. Refresh 

objCMD.Parameters(l). Value = prior_source_identifier 
objCMD.Parameters(2). Value = prior_source_desc 
objCMD.Parameters(3).Value = billing_cur_src_desc 
objCMD.Parameters(4).Value = modcl_sourcc_cat 
objCMD.Paramcters(5). Value = model_sourcc 
objCMD.Parameters(6). Value = agent_src_desc 

if vaJid_frbm_date > " " then objCMD.Parameters(7). Value = valid_from_date else objCMD.Parameters(7). value = null 
if valid_to_date > " " Then objCMD.Parameters(8). Value = valid_to_date else objcmd.Parameters(8). Value = null 
objCMD.Parameters(9). Value - l_rec_id 
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else 



if l^action="Update" then objCMD.Parameters( 10). Value = 0 
if l_action="Delete" then objCMD.Parameters(lO).Value = I 
Set TempNonSessionVar = objCMD.ExecuteO 
Response.Redirect l_setuptablink 



strSQL = l_query 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) and isnumeric(l_rec_id) then 

prior_source_identifier = objRST("prior_sourcc_identifier") 

prior_source_desc = objRST("prior_sourc€_desc") 

brlling_cur_src_desc - objRST("billing_cur_src_desc") 

model_source_cat = objRST("model_source_cat") 

model_source = objRSTCmodc^sourcc") 

agent_src_desc = objRST(*agent_src_desc") 

valid_from_date = objRST("valid_from_date") 

valid_to_date = objRST("valid_to_date") 

end if 
objRST.close 
end if 

%> 

<html> 
<head> 

<title>You are on editPriorSrcDesc.asp</titlex/head> 

<body bgcolor^mCCFF" vlink="000000" link="003366"> 

<form method="post" action="editPriorSrcDesc.asp?Z=<%=l - recJd%> ,, > 

<table BORDER="0"> 

<tr vaiign="top"> 

<td align^lcft" width="640" colspan="3"> 

<img src=".ygraphics/editl222.gir width="27" height='14"> 

</td> 

<ti> 
<tr vaIign="top"> 

<td align="left" width="640" colspan="3"> 

<tablc width="500" border="0" celispacing="3" cellpadding="2"> 

<tr valign="top"> 

<td height="25" align^"left"> 

<div align="left"x/div> 

</td> 

<td height="25" align="left"> 

<input type="IMAGE" Value="UPDATE" Name=" UPDATE" 
src=Vgraphics/submitl222.gir widuV="54" height="16" border="0"> 

<img src=".ygraphics/blankl222.gir width="20" height="I6" 

border="0"> 

<input type^-IMAGE" Value^'DELETE" Name="DELETE" 
src=\Jgraphics/dcletcl222.gir width--53" height="!6" border="0"> 

<br> 

<font face="Verdana, Anal, Helvetica, sans-seriP size^M*^ 
<a hre£="setupPriorSrcDesc.asp">Return to Prior Source 



Description Setup Table</a> </font> 

</tr> 
<tr> 

color="#FFFFFF"> 

IDENTIFlER</fontx/bX/fontx/div> 
color="#FFFFFF"> 



</td> 



<td bgcolor="003366" height="20" width="140" align=" center" > 
<div align-"center"> 

<font face=" Verdana, Arial, Helvetica, sans-seriP 
<bxfont size="r>PRIOR SOURCE 

</td> 

<td align="LEFT> 

<fonl face=" Verdana, Arial, Helvetica, sans-serif' 
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value="<%=prior_source_identifier %>"> 



<input typc=TEXr NAME="P_0" id="PJ>" 
</font> 



</td> 



</tr> 
<tr> 



color^tfFFFFFF^ 
DESC</fontx/bX/fonP</div> 

color="#FFFFFF"> 
vaIuc="<%=prior_sourcc_dcsc%>' , > 



</tr> 
<tr> 



color^FFFFFF*^ 
DESC</fonP</bx/fontx/div> 

color="#FFFFFF"> 

val uc=" <%=b i 1 1 i ng^cur_src_dcsc%>"> 



color="#FFFFFF"> 

CATEGORY</fonP</bx/fontx/div> 
color="#FFFFFF*> 

productjd = " & SessionCPRODUCTJD' 
adLockOptimistic 

selected ") 

objRST(O) & "</OPTlON>") 



vaIue="<%=model source cat%> 



<td bgco!o^= ,, 003366' , height="20" widih="14(T align="cemer"> 
<div align="center"> 

<font facc=" Verdana, Arial, Helvetica, sans-serif 
<bxfont sizer" 1 ">RENEWAL PRIOR SOURCE 

</td> 

<td aJign="LEFT"> 

<font face=" Verdana, Arial, Helvetica, sans-serif 

<input type="TEXr NAME-"P_r id=T_r 

</font> 
</td> 



<td bgcolor="003366" height="20" width="140" align="center"> 
<div align-' , center"> 

<font face=" Verdana, Arial, Helvetica, sans-serif 
<bxfont size="l">BILLlNGS CURRENT SOURCE 

</td> 

<td align="LEr r r> 

<font face*" Verdana, Arial, Helvetica, sans-serif 

<input type--TEXT" NAME="P_2" id="P_2" 

</font> 

</td> 

</tr> 
<tr> 

<td bgcolor="003366" height="20" width="l40" align="centcr"> 
<div align="center"> 

<font face=" Verdana, Arial, Helvetica, sans-serif 
<bxfont size=" 1">M0DEL SOURCE 

</td> 

<td aIign="LEFT> 

<font face="Verdana, Arial, Helvetica, sans-serif 

<S ELECT namc="P_3" id=*P_3"> 
<% strSQL = "select src_cat_name from src_category where 
') & " order by src_cat jiamc" 

ObjRSTopen strSQL, strSQLOLEDB, adOpenStatic, 

while not objRST.eof 

response. write("<OPTION ") 

if objRST(0) = modcl_source_cat then response.wri te (" 
response.write (" valuer" & objRST(0) & & 
objRST.movenext 

wend 

objRST.close 
%> 

<%'<input type^TEXT" NAME="P_3" 
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</font> 

</td> 

</tr> 
<tr> 

<td bgcolor="003366" height="2<T width="140" align="center"> 
<div align="center"> 

<font face=" Verdana, Arial, Helvetica, sans-serif 

c6tor="#FFFFFF"> 

<bxfont size=T>MODEL SOURCE 

DESCRiPTlON</foni></bx/fonP</div> 

</id> 

<td align="LEFT"> 

<font face^" Verdana, Arial, Helvetica, sans-serif 

color=*#FFFFFF n > 

<input type= w TEXT NAME="P_4" id="P_4" 

vaIue="<%=modei_source%>"> 

</font> 

</td> 

</tr> 
<tr> 

<td bgcolor="003366" height="2(r width="140" align="ccnter"> 
<div align-"ccnter"> 

<font face=" Verdana, Arial, Helvetica, sans-serif 

co!or="#FFFFFF"> 

<bxfont size= w r>AGENT SOURCE 

DESCRJPTlON</fontXb></fontx/div> 

</td> 

<td align="LEFT> 

<font face=" Verdana, Arial, Helvetica, sans-serif 

color="#FFFFFF"> 

<input type=TEXT- NAME="P_5" 

value="<%=agent_src_desc%>'*> 

</font> 

</td> 

</tr> 
<tr> 

<td bgcolor="003366" height="20" width="l40" align="center"> 
<div align="center"> 

<font face=" Verdana, Arial, Helvetica, sans-serif 

color="#FFFFFF H > 

<bxfont size=" 1 ">VALID FROM 

DATE</fontx/bx/fontx/div> 

</td> 

<td align=-LEFT> 

<fdnt face=" Verdana, Arial, Helvetica, sans-serif 

color="#FFFFFF"> 

<input type=-TEXT" NAME="P_6" 

value="<%=valid_from_date%>"> 

</foni> 

</td> 

</tr> 
<tr> 

<td bgcolor= ,, 003366 , ' height="2<r width-" 140" aiign="center"> 
<div align=*'center' , > 

<font face=" Verdana, Arial, Helvetica, sans-serif 

color="#FFFFFF"> 

<bxfont size="l"> VALID TO DATE</fontx/bx/fontx/div> 

</td> 

<td align="LEFT"> 

<font face=" Verdana, Arial, Helvetica, sans-serif 

color="#FFFFFF"> 

<input type="TEXr NAME="P_7" 

value="<%=valid_to_date%>"> 

</font> 
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</td> 

</tr> 

</tab!c> 
</TD> 

</TR> 
</TABLE> 
</form> 
</body> 
</html> 
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editrset.asp 



<%@ Language=VBScript %> 



<!- ^include file="../support/global_constants.asp" — > 
<!- #includc file="../support/dbConnection.asp" — > 
<!- ^include file=".Vsupport/adoUtils.asp" — > 
<!- U include file="../support/srcTab.asp" -> 
<!— ^include fiIe=".Vsupport/pickListObj.asp" — > 
<!- ^include file=".Vsupport/JavaScripts.asp" -> 

<% 

dim DEBUG 
DEBUG = false 

dim IJabel(lO) 
dim l_values(33) 
'dim I_basis_opt(l0)(7) 

IJabel(O) = "Sub Revenue" 

IJabcl(l) - "Ad Revenue" 

l_label(2) = "List Rental Revenue" 

l_label(3) = "Other Revenue" 

l_rec_ID = Request QueryStringfZ") 



If Request Form("UPDATE.x") o "" then 

Inaction = "Update" 
elself Request form("DELETE.x") o then 

I_action= "Delete" 
else 

l_action = "x" 

end if 



'Response. Write "Hate " & l_action 
If I_action - "Update" or l_action = "Delete" then 
' Response. Write "Save or Delete Invoked" 
'if Request Form("P_REC_ID") > " " then 

l_rec_id = Request("P_R£C_ID") 
' Response.Write "<BR>Rec id=" & I_rec_id & *=" &Request("P_RECJD") & "=<BR>" 
fori = 0to 7 

l_vaiues(i) = RequestForm("P_" & i ) 

next 

l_r_set_name = Request Formf P_R_SET NAME") 

'onse. Write "<BR>Rec id " & Request Form("P_R_SET_N AME") & "<BR>" 
if l_r_set_name > " " then 

objCMD.ActiveConnection » strSQLOLEDB 

objCMD.CommandText - "sp_cdit_prod_r_set" 

objCMD.CommandTypc = adCmdStoredProc 

objCMD. Parameters. Refresh 
USER SUPPLIED 

objCMD.Parameters(l).VaJue = Session("PRODUCT_ID") 

objCMD. Parameters(2). VaJ ue =l_r_sct_name 

for k = 0 to 7 

IF DEBUG = TRUE THEN 
Response.Write (k +3) & " " & k & " " & l_va!ues(K) & "<br>" 
END IF 

Response.Write "<BR>l_value " & !_values(k) & "<BR>" 
ifk mod 2 = 0 then 

objCMD.Parameters(k + 3). Value = validateNumber(i_values(k)) 
else 

objCMD.Parameters(k + 3). Value = vaJidatePickList(l_values(k)) 
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end if 
next 

Response. Write k 



Response. Write "<BR>Rec id " & l_rec_id & "<BR>" 
objCMD.Parameters( 11). Value = 



1 rec id 



if l_action = "Delete" then 

objCMD.Parameters( 12). Value = 1 
else 

objCMD.Parameters(12).Vaiue = 0 
end if 

Set TempNonSessionVar = objCMD.ExecuteQ 



'end if 

Response. Redirect "setup Rset.asp" 
else 

Inaction = "Edit" 
• Response. Write "Edit Invoked" 
strSQL = "select " _ 

& * productjd rO, " _ 

& "r_set_name rl," _ 

& "subs_revenue r2," _ 

& "subs_cpm_cpu r3," _ 

& "ad_revenue r4," _ 

& "ad_cpmj:pu r5," _ 

& "listrental_revenue r6," _ 

& "Iistrental_cpm_cpu xl* _ 

& "other_revenue r8," _ 

& "other_cpm_cpu r9" _ 

& " from revenue_sets " _ 

& "where rec_id = " & I_rec_id 

Response.Write strSQL 
ObjRST.opcn strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
i_product_id = ObjRST.fields(O) 
Lj_set_name - ObjRST.fie!ds( 1 ) 
for i - 0 to 7 
l_values(i) = ObjRST.fields(i + 2) 
' Response.Write i + 1 & " " 
next 

ObjRST.close 
end if 

'Response.Write "Hate " & 1 action 
%> 

<HTML> 
<HEAD> 
<title>editRsetasp 
</title> 

<META NAME="GENERATOR" Content^ Microsoft Visual Studio 6.0"> 
</HEAD> 

<script Ianguage="JavaScript"> 
<!- 

function MM_swapImgRestore() { //v2.0 
if (document.MM_swapImgData != null) 
for (var i=0; i<(document. MM_swapImgData. length- 1); i+=2) 
documentMM swapImgData7i].src = document MM swapImgData[i+l]; 

} 

function MMj>re!oadImages() { //v2.0 
if (document images) ( 

var imgFiles = MM_preloadImages.arguments; 

if (document preloadArray=nuII) document pre load Array - new ArrayO; 
var i - document, preload Array, length; 

with (document) for (var j=0; j<imgFiles. length; j++) if (imgFiles[jJ.charAt(0)!="#"){ 



end if 
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preload Array[i] = new Image; 
preload Airay( i++].src - im°Files[j]; 
M 

) 

function MM_swaplmage() { //v2.0 

var i j=0,objStr,obj,swapArray=new Anay,oldAJTay==documenLMM_swapimgData; 
for (i=0; i < (MMjswapImage.arguments.length-2); i+=3) { 
objStr = MM_swapImage.argurnents[(navigator.appNarne = , Netscape')?i:i + l ]; 
if ((objStr.indexOtX , docurnenLlayers[ , )===0 && document. layers=nul I) || 
(objStrjndexOfCdocumenLaJin =0 && documcnt.aJl =null)) 
objStr - Mocument , -H)bjStr.substring(objStr.lastlndexOfr.').objStr. length); 
obj =evai(objStr); 
if (obj != null) { 
swapArray[j-H-] ~ obj; 

swap Array {j-H-j = (oldArray=nulI [I oIdArray|j-l]!=obj)?obj.src:oldArTay[jl; 
obj.src = MM swapImage.arguments[i+2]; 
}} 

document MM_swapImgData = swap Array; //used for restore 

> 

//-> 

</script> 

<body bgcolor=-#99CCFF" vIink="00000(T link="003366"> 



<form method="post" action="editRSet_asp" id=forml name=forml> 
<% If l_rec_ID > " " then %> 

<Input typc="HIDDEN" name="P_REC_ID" vaJue-'<% Response. Write l_rec_id %>*> 
<%end if%> 

<TABLE BORDER=0 width="31 1" > 

<tr valign="top"> 
<td align="left" coIspan="3" heighr="20"> 

<table width="100%" border="0" cellspacing="0" cellpadding^O^ 
<tr> 

<td width="25%"ximg src=".7graphics/editl222.gir width="27" heights" I4"x/td> 
<td width="35%"> </td> 
<td widih="70" align="righf> 

<div aiign="right"> </div> 
</td> 

<td width="70" align="right"> 
<dtv align="right"> </div> 

</td> 
</tr> 
<tr> 

<td width="25%*> </td> 
<td width="35%"> </td> 
<td width="70" aiign="right"> 
<input typc^IMAGE' value=" UPDATE" namc=" UPDATE" 

src=".ygraphics/submitl222.gir width="54" hcight=- 16" border="(T> 

</td> 

<td width="70" align="right"> 

<input type^lMAGE* vaIue="DELETE" name=" DELETE" 

src=".7graphics/deletel222.gir width="53" height="16" border="0"> 
</td> 
</tr> 
<tr> 

<td width="25%"> </td> 

<td width="35%" colspan="3" align="right" height="24" vaIign="bottonT> 

<div align="right"xfont facc=" Verdana, Arial, Helvetica, sans-serir size="-4"xa href="setupRset.asp">Retum 

to Revenue Set Setup Table</ax/fontx/div> 
</td> 
</tr> 
</table> 
</td> 
</tr> 
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<tr> 

<td width="l50" aiign="center" height="lO"> </td> 

<TD align^LEFT height="10*'> </td> 
</tr> 
<tr> 

<td bgcolor="003366" height="20" width="109" align="center"> 
<font facc=" Verdana, Anal, Helvetica, sans-seriP color="#FFFFFP> 
<bxfont size="l*> 
Revenue Set 

</fontx/bx/fontx/td> . 
<td colspan="2*> 
<input type=TEXT' name^p^rje^name* 

id=0 value=*<%Response. Write I_r_set_namc %>* slue^ll^ 

</td> 
</tr> 
<% 

for i=0 to 3 
%> 
<tr> 

<td bgco!or="003366" height=*20" width=" 1 09" aiign="center ,, > 
<font face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"> 
<bxfont size=T> 
<% 

Response. Write Mabel(i) 
%> 

</fontx/bx/fontx/td> 
</td> 
<% 

forj = 0to I 
in cnt = i * 2 + j 
%> 

<td> 

<% if j = 1 then %> 

<SELECT name- P_<%Responsc. write in_cnt %» 
<% if l_values(in_cnt) = "CPM" then %> 
OPTION value=0>CPM or CPU 
<OPTION value = , CPM'selected>CPM</option> 
<OPTION value ^CPU' >CPU</option> 
<% elseif I values(in_cnt) = "CPU" then %> 

<OPTION value=0>CPM or CPU 
OPTION value =*CPM*>CPM</option> 
<OPTION value ^CPU' selected>CPU</option> . 
<% else %> 
<OPTION vaIue-0>CPM or CPU 

<OPTION value ='CPM , >CPM</option> 
<OPTlON value = , CPU'>CPU</option> 
<% END IF%> 
</SeIect> 

<% elseif j = 2 then %> 

<%else%> 

<input type^TEXT" NAME='P_<%Response. write indent %>* 
<%if1_action="Edit" then %> " 

value^^Response. Write l_values(in_cnt) %>* 
<%end if %> 
size =12> 
<%endif%> 
</td> 

<% next %> 

</tr> 

<% next %> 

</table> 

<p> </p> 
</form> 
</BODY> 
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</HTML> 
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cditsource.asp 



<%@ Unguagc=VBScript %> 
<!- 8 include filc=".7support/giobaJ_constants.asp" -> 
<!- ^include file^.ysupport/dbConnection.asp" -> 
<!- U include file=\./support/adoUtils.asp" -> 
<!- U include file=".ysupport/srcTab.asp" -> 



If RequesLForm("UPDATE.x") <> then 

l_button = "Update" 
elself Request form("DELETEx") o "" then 
l_button = "Delete" 
end if 

l_rec_id = Request.QueryString("Z") 

•Response. Write l_rec_id 

If (IsNumeric( I_rcc_id) ) then 

if l_button - "Update" or l_button = "Delete" then 

inaction = true 

Csourcc= RequestForm("P_SOURCE") 
l_src_ind = RcquestForm("P_SRC_IND") 

objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit_source" 
objCMD.CommandType = adCmdStoredProc 
objCMD. Parameters.Retresh 
objCMD.Parameters(I).Value = l_source 
objCMD.Parameters(2). Value = l_srcjnd 
objCMD.Parameters(3). Value = Session("U") 
objCMD.Parameters(4). Value = cint(l_rec_id) 
if IJmtton = "Delete" then 
obJCMD.Parameters(5). Value = 1 
else 

objCMD.Parameters(5). Value = 0 
end if 

Set TempNonScssionVar = objCMD.ExecuteO 
Rcsponse.Redirect "admin4a.asp?display=l" 

laction = true ; 
f source = RcquestForm("P_SOURCE") 
l_src_ind = Request. Form("P_SRCJND") 

else 

Taction = false 

strSQL = "select SOURCE_NAME, SRCJNDICATOR from SOURCE where " 
& " rec_id = " & l_rec_id 

ObjRST.opcn strSQL, StrSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 

l_source = ObjRST.FieIds("SOURCE_NAME") 

l_src_ind - ObjRST.Ficlds("SRCJNDICATOR") 
end if 

ObjRST.ciose 
end if 
end if 



%> 
<html> 
<head> 

<titIe>EditSource.asp</title> 
</head> 

<body bgcolor="#99CCFF" vlink="000000" link="003366"> 



<% 
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<form method="post" action="editSource.asp?Z=<%Response. Write l_rcc_id %> " id=forml name=forml> 
<table width="640" border="0" ccllpadding="2"> 
<% prevSelections(3) %> 



<tr valign="top"> 

<td aJign="left" width="64(T colspan="3"ximg src=r7graphics/cditl222.gir width="27" height^" 1 4"x/td> ' 
<Ar> 

<tr valign="top*> 

<td align="left" width="640" colspan="3"> 
<table width="500" border="0" cellspacing="3" cellpadding="2"> 
<tr valign="top"> 
<td height="25" align="lefV> 
<div align="lcft"x/div> 
</td> 

<td height="25" align="lerr> 

<input type-'lMAGE* Value=" UPDATE" Name="UPDATE" 
src=\./graphics/submit 1222.gif width="54" height="16" border="(T> 
<img src=".Vgraphics/blankl222.gif width="20" height="16" bordcr=0> 
<%' <input type-IMAGE' VaIue="DELETE" Namc=" DELETE" 

, src=".ygraphics/dc!ctcl222.gir width=*53" hctght="16" border=0> %> 
<font face=" Verdana, Arial, Helvetica, sans-serif size= ,, -4"> 
<a href=' , admin4a.asp">Retum 

to Source</ax/fontx/td> 
</tr> 
. <tr> 

<td bgcolor="003366" height="20" widths" 140" aiign="center"> 
<div align="center"> 

<font face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF ,, > 
<bxfontsize="r> 
SOURCE NAME 
</fontx/bx/fontx/d i v> 
</td> 

<td bgcolor="#99CCFF" height="2(T width="360" align="left"> 
<div align="!eft**xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont sizc="l" 
color="#000000"> 
<%i f not l_action then 

strSQL * "select U_SOURCE_NAME FROM Source_descriptions " 
objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
showQueryListBox objRST, "P_SOURCE",6, "SELECT SOURCE", Lsource 
objRST.close 
else 

Response. Write l_source 
end if %> 
</fontx/bx/fontx/div> 

</td> 
</tr> 
<tr> 

<td width=" 140" bgcolor="#003366" height="20" align=*ccnter"> 

<div aIign="center"xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size="l">SOURCE 

INDICATOR </fontxybx/fontx/div> 
</td> 

<td width="360" bgcolor="#99CCFF" height="20" aIign="lefV> 
<div align="left"xfont face=" Verdana, Arial, Helvetica, sans-serif color="#FFFFFF"xbxfont size 3 "!" 
color="#000000"> 

<%ifnotl action then %> 
<inputtype="TEXT NAME- P_SRC_rND' 

id==0 value- <%Response. Write l_src_ind %>' maxlengtjv="30" size='6"> 
<% else 

Response. Write l_src_ind 

end if %> 
</TD> 



</fo"ntx/bx/fontx/div> 
</td> 
</tr> 
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</tablc> 
</td> 
</tr> 
</tab!e> 
</form> 
</body> 
</html> 
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editsourccname.asp 

<%@ Language=VBScript %> 

<!- ^include file=".7support/global_constants.asp" -> 

<!-#include filc=".ysupport/dbConncction.asp" -> 

<!- ^include file=\./support/adoUtils.asp" -> 

<!- # include ftIc=".7support/srcTab.asp" -> 

<!- # include fi!e=".Vsupport/setupTab.asp" -> 

<% 

dim l_co1_namcs(2) 
dim l_col_values(2) 

l_ColumnCount - 2 
l_rcc_id - Request QueryString("Z") 
If Request Form("UPDATE.x") o then 
l_action = "Update" 

elsel f Request form("DELETE.x") o "" then 
l_action = "Delete" 

end if 

l_sp_edit = "sp_Edit_Source_Description" 
l_fi!e = "editSourceName.asp" 
IJTille = "Source Description" 
l_setupTabLink = "sctupSourceName.asp" 
l_showPrevSc!ection= false 

!_col_names(0) = "SOURCE " 
l_col_names(l) = "DESCRIPTION" 

Lquery = "select U_SOURCE_NAME, U_source_description " _ 
& " FROM Source_descriptions "_ 
& " WHERE rec_id = " & cint(l_rec_id) 



* Response. Write l_rec_id 
If (IsNumeric( !_rec_id) ) then 

if l_action = "Update" or l_action - "Delete" then 

editAccept I_rec_id, l_action, !_CoIumnCount l_sctupTabLinkJ_sp_edit 
else 

strSQL = I_query 

ObjRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
If (ObjRST.EOF = False) then 
l_col_values(0) = ObjRST.FieIds(0) 

t_coI_values(l)= ObjRST.Fields(l) 

end if 

objRST.cIose 
end if 

end if 



1 call setupTab's editmain to paint screen for user input 
editHeading l_file, IJile, l_rec_id 

'assign values to variables for setupTab's editMain 



' call setupTab's editmain to paint screen for user input 

editMain l_TitIeJ_setupTabLink,l_showF^SeIectionJ_a)l_najnesJ_<»l_valuesJ_ColumnCoun^ 
' call setupTab's editBottom to close body, html, form 
editBottom %> 
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ms cditcampaign.asp 

<%@ Language="VBScript" %> 

<!- ^include file=".ysupport/gIobaJ_constants.asp" -> 

<!- ^include fiIe="../support/dbConnection.asp" -> 

<!- tfinclude fiic^.ysupport/adoUtils.asp" -> 

<!- ^include fi!e=".7support/srcTab.asp" -> 

<!- ^include fiIe=".ysupport/navigation.asp" -> 

<!- ^include fiIe=".ysupport/objeditasp" -> 

<% 

l_this_fi!e ="ms_editcampaign.asp" 
Session("rcferj>age") = "admin5a.asp" 

if (RequestFormfsetupTab") o "0" and RequestFormfsetupTab") > " ") then Response.Redirect(RequestForm("setupTab")) 

savechanges = False 

page = requestquerystring("pg") 

if not (len(page) > 0) then 

page = request. form("pg") 

if requesLform ("groupedit") > " " then savechanges = True 

end if 

toomanyrecords = requcst.querystring("ro") 
'Update 

if savechanges = True then 

"response. write ("Entering ...") 
*Get records 

recordcount = Request form("p_RecCount'*) 
recordid = "" 
recordidlist = "" 

•response. write (" RecordCount -> " & cstr(rccordcount) & "<br>") 
•response.writeCThere arc " & cstr(recordcount) & " records <br>") 



for i = 1 to recordcount 

recordid = Request formCrecJd" & cstr(i)) 
'response. write ("<br> Record id: " & recordid) 
if recordid > " " then 

'in it obj 

set PGE = new objPostGroupEdit 
PGE.init 

PGE.MSE_Row = i 

PGE.AddRecord recordid 

•response. write(cstr(recordid) + "<br>") 

'Set Stored Procedure info 
PGEClassType = "Multi Edit" 
PGE.SP - "sp_edit_campaign" 
PGE.TableName - "campaigns" 

if Request form("GroupEdit") > " " then PGE.IsDelete = 0 

if request form("deletebutton") > " " then PGE.IsDelete = 1 

PGE.AddParam "camp_name" 

PGEAddParam "campjiate_rr" 

PGE.AddParam "camp_type" 

PGE.AddParam "camp_status_name" 

PGE.AddParam "e_set_name" 

PGE.AddParam "r_set_name" 

•PGE.AddParam *newstand_sale" 

PGE.AddParam "budgeted_gross_pct" 

PGE.AddParam "budgeted_vol" 

PGE.AddParam "login" 

PGE.AddParam "recjd" 

PGE.AddParam "tsDelete" 

objCMD-ActiveConnection = strSQLOLEDB 

objCMD.CommandText = "sp^edi^campaign" 

objCMD.CommandType = adCmdStoredProc 

objCMD.parameters.refresh 

PGE.PostGroupEditsBySP 

'response.write ("Changes Saved") 
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end if 

next 'i 
end if 

'Multi Select 

dim MSE • Multi Select object 

dim strSQL ' SQL Query text 

dim NumOfRecords ' Total records matching whereclause - used for Prev and Next buttons 
dim RecsPerPage * max number of records to display on each page 

'initobj 

set MSE = new objGroupEdit 
MSE.init 

MSE.CIassType = "MultiSelect" 
MSE.action = l_this_file 
MSE.Retum_Pagc = "admin5a.asp" 
MSE.TableHeader = "Multi Edit" 
MSE.show = true 

recordidlist - Session("RECORDIDLIST") 
MSE.MS_Page = page 
RecsPerPage = 5 

MSE.MS_RecsPcrPage = RecsPerPage 
MSE.MSJTable = "Campaigns" 

MS.WhereClause = " where grp_name = '"& Session("GRP_NAME") & and PRODUCT_ID=" & Session("PRODUCT_ID") & " 
and $rc_cat_name = - & Session("SRC_CAT_NAME") &"*"&" and source_name = '"& Session("SOURCE NAME") & ~ and 
rec_id in (" & Session("RECORDIDUST") & ")" 
MS_OrderBy = " Order by camp_name desc " 
'response, write MS_WhercClause 

'open recordset for current page 
objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText =* "PagedQuery" 
objCMD.CommandType = adCmdStoredProc 
objCMD.parameters.refresh 
objCMD.Paramcters("@Page"). value = page 
objCMD.Parameters("@RecsPerPage") = RecsPerPage 
objCMD.Parameters("@QueryTable") = "Campaigns" 
objCMD.Parameters("@WhereCIause") = MS_WhereClause 
objCMD. Parameters("@OrderBy") = MS_OrderBy 
set objRST = objCMD.executeO 

'response.write("Record ID list > " & SessionfRECORDIDLIST")) 
'response, write ("Page ->" + cstr(Request.querystring("pg"))) 

'strSQL » "pagedquery " + cstr(page) + "^/campaigns'," + chr(34) + MS WhereClause + Chr(34) + "," + chr(34) + MS OrderBy + 
chr(34) " 
'response.write (strSQL) 

'objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

NumOfRecords = 0 
if not objRST.eofthen 

NumOfRecords = objRST("MoreRecords") 

MSE.MS_NumOfRecords = NumOfRecords 

else 

There are no more records 

'response. write "There are no more records to edit" 

response. redirect "admin5a.asp" 

end if 

while not objRST.eof 

MSE.NextRow 

'Campaign Name 
index = MSE.Addltem 
M$E.fteldType index, "TEXT" 
MSE.ColumnHeader index, "CAMPAIGN NAME" 
MSE.defauIt index, mycstr(objRST("camp - name")) 

'Campaign Start Date 
index = MSE.Addltem 
MSE.fieldType index, "TEXT" 
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MSE.ColumnHeader index, "CAMPAIGN START DATE" 
MSE.defauit index, mycstr(objRST("carnp_date_fr")) 

Campaign Type 
index = MSE.AddItem 
MSEfieldType index, "SELECT" 
MSE.ColumnHeader index, "CAMPAIGN TYPE" 

MSE.strSQL index, "select CAMP_TYPE_NAME from PROD_CAMP_TYPE where PRODUCT_ID=" & 
Session("PRODUCT_ID") & " order by camp_type_name " 
MSE.defauit index, mycstr(objRST("campjype")) 

Campaign Status 
index = MSE.AddItem 
MSE.fieldtype index, "SELECT" 
MSE.CoIumnHeader index, "CAMPAIGN STATUS" 

MSE.strSQL index, "select CAMP_STATUS_NAME from PROD_CAMP_STATUS where PRODUCTJD=" & 
Session("PRODUCT_ID") & " order by camp_status_name " 

MSE.defauit index, mycsir(objRST("camp_status_name")) 

'Expense Set 

index = MSE.AddItem 

MSE.fieldtype index, "SELECT 

MSE.ColumnHeader index, "EXPENSE SET 

MSE.strSQL index, "select e_set_name from EXPENSEJETS where PRODUCTJD=" & Session("PRODUCTJD") & m 
order by c_set_name " 

MSE.defauit index, mycstr(objRST("e_set_name")) 

'Revenue Set 

index = MSE.AddItem 

MSE.fieldType index, "SELECT" 

MSE.ColumnHeader index, "REVENUE SET" 

MSE.strSQL index, "SELECT r_set_name from revenue_sets where product Jd = " & Session("PRODUCTJD") & " 
order by r_set_name" 

MSE.defauit index, mycstr(objRST("r_set_name")) 

Tvlewstand Sale 
'index = MSE.AddItem 
'MSE.fieldType index, "TEXT" 
'MSE.ColumnHeader index, "NEWSTAND SALE" 
'MSE.defauit index, mycstr(objRST("newstand_sale")) 

'Budgeted Gross % 

index = MSE.AddItem 

MSE.ficldtype index, "TEXT" 

MSEColumnHeader index, "BUDGETED GROSS %" 

MSE.defauit index, mycstr(objRST("budgetedjgross_pct")) 

'Budgeted Vol 

index = MSE.AddItem 

MSE.fieldtype index, "TEXT" 

MSEColumnHeader index, "BUDGETED VOL" 

MSE.defauit index, mycstr(objRST("budgeted_vol")) 

•Record ID 

index = MSE.AddItem 

MSE.fteldType index, "RECORDID" 

MSE.ColumnHeader index, "" 

'MSE.strSQL index, "N t Y" 

MSE.defauit index, mycstr(objRST("recJd")) 

objRST.movenext 
wend ' objRST 
objRST.close 

Table Headers 

%> <form method="POST action="<%=! Jhisjile%>" name="Group_Edit_Form" cellpadding="3" cellspacing ="3"> 
<table> 

<% 
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•response.write (ScssionCRECORDlDLIST) & " Hello World") 
'Set record count 

%> <input type="HIDDEN" value="<%=RecsPerPage%>" name="p_RecCount"> <% 

Display Table 
MSE.DisplayEditTable 



%> 
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ms editkev.asp 



<%@ Language=VBScript %> 
<!— tfinclude file=\ysupport/global_constants.asp" — > 
<!- #include file= s "../support/dbConnection.asp'' -> 
<!— ^include file=".7support/adoUtils.asp" — > 
<!- U include fi!c=".7support/srcTab.asp w -> 
<!-# include file=".7support/navigation.asp" -> 
<!- U include file^'.^support/objeditasp" -> 
<% 

l_this_file ="ms_editkey.asp" 
SessionCrcfer^age") - "rr^editkey.asp'* 

if (RequestForm("setupTab")o "0" and Request.Form("setupTab") > " ") then Response.Redirect(RequestForm("sctupTab")) 

savechanges = False 

page = requestquerystringCpg") 

if not len(page) > 0 then 

page = request, form^pg") 

savechanges = True 

end if 
'Update 

if savechanges = True then 



"Get records 

recordcount = Request form("p_RecCount") 

'response.writc (" RecordCount -> " & cstr(recordcount) & ■<br> ,i ) 

recordid = 

recordidlist = 

'response. writeCThere arc " & cstr(recordcount) & " records <br>") 
for i — 1 to recordcount 

recordid = Request form("rec_id" & cstr(i)) 

if recordid > " " then 



'ink obj 

set PGE - new objPostGroupEdit 
PGEinit 

PGEMSE_Row = i 

PGE.AddRccord recordid 

'response. write(cstr(record id) + "<br>") 

'Set Stored Procedure info 
PGE.ClassType = "Multi Edit" 
PGE.SP = -sp_editjcey" 
PGETableName ^keys" 
PGElsDeletc = 0 
PGE.AddParam "p_key_descr" 
PGE.AddParam "mail_qty_override" 
PGEAddParam "newstand_sale" 
PGE.AddParam "newstand_salc_markcr" 
PGE.AddParam "list_cat_namc'' 
PGE.AddParam "list_name" 
PGE.AddParam • , list_segment_name ,, 
PGE.AddParam "list_cost_actual_cpnT 
PGE.AddParam "tisreosfbasis''* 
PGE.AddParam "Iist_costJactor" 
PGE.AddParam "merge_purge_qty" 
PGE.AddParam "e_set_name" 
PGE.AddParam *r_set_name" 
PGE.AddParam "panel_pkg" 
PGE.AddParam "subtotaljlag" 
PGE.AddParam "optional_efTortJd" 
PGEAddParam "rec_id" 
PGE.AddParam "IsDelete" 
objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = *sp_edit_key" 
objCMD.CommandType = adCmdStoredProc 
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objCMD.paramctcrs. refresh 
PGE.PostGroupEditsBySP 

end if 
next 'i 
end if 

'Multi Select 

dim MSE 'Multi Select object 

dim strSQL ' SQL Query text 

dim NumOfRecords ' Total records matching whereclause - used for Prev and Next buttons 
dim RecsPerPage 1 max number of records to display on each page 

'init obj 

set MSE - new objGroupEdit 
MSEinit 

MSE.action ~ Ijhis file 
MSECIassType = "MultiSelect" 
MSE.TabIeHeader = "Multi Edit" 
MSE.show = true 

recordidlist = Session("RECORDIDLIST") 
MSE.MS_Page = page 
RecsPerPage = 5 

MSE.MS_RecsPerPage = RecsPerPage 
MSE.MSJTable = "keys" 
MSE.Retum_Pagc = "adminkcysrighLasp" 

•MS_WhereClause = " where grp_name = '"& Session("GRP_NAME") & ™ and PRODUCT_ID=" & Session("PRODUCTJD") & " 
and src_cat_name = - & Session("SRCCATNAME") & "'" & " and source_name = *" & Session("SOURCE_NAME") & "*" & " 
and Camp_name = & Session("CAM*P NAME") & "* and rec_id ip (" & Session(" RECORDIDLIST") & ")" 
MS_WhereCIause = " where rec_id in (" & Session("RECORDIDLIST") & ")" 
MS_OrderBy = " Order by full_promo_key " 
'response, write MS_WhereClause 

'open recordset for current page 
objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "PagedQuery" 
objCMD.CommandType = adCmdStoredProc 
objCMD.parameters. refresh 
objCMD.Parameters("@Page").value = page 
objCMD.Parameters("@RecsPerPage") - RecsPerPage 
objCMD.Parameters("@QueryTable") = "keys" 
objCMD.Parameters("@WhereClause") = MS_WhereCIause 
objCMD.Parameters("@OrderBy") = MS_OrderBy 
'responsc.write ("Page ->" + cstr(Rcquest.querystring("pg"))) 

'strSQL = "pagedquery " + cstr(page) + ".S.Tceys'," + chr(34) + MS_WhereClause + Chr(34) + V + chr(34) + MS_OrderBy + chr(34) 

'response.write (strSQL) 

set objRST - objCMD.executeO 

'objRST.open strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

NumOfRecords = 0 
if not objRST.eof then 

NumOfRecords = objRST("MoreRecords") 

MSE.MS_NumOfRecords » NumOfRecords 

'responsc.write (NumOfRecords) 

else 

There are no more records 

'response. write "There are no more records to edit" 

response. redirect "adminkeysrightasp" 

end if 

while not objRST.eof 

MSE.NextRow 

'Key 

' index = MSE.Addltem 
MSE.fleldType index, "NOTAP ARAMETE R" 
MSE.ColumnHeader index, "KEY" 
MSE.defauIt index, mycstr(objRST("full_promo_key")) 
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'Key Description 
index = MSE.Addkem 
MSE.fielaType index, TEXT" 
MSE.ColumnHeader index, "ICEY DESCRIPTION" 
MSE.defauIt index, mycstr(objRST("pJcey_descr")) 

'Mail Qty 

index = MSE.AddItem 

MSE.fielaType index, "NOTAPARAMETER" 
MSE.CoIumnHeadcr index, "MAIL QTY" 
MSE.defauIt index, mycstr(objRST("key_mail_qty")) 

'Mail Qty OverRide 
index = MSE.AddItem 
MSE.fieldtype index, "TEXT* 

MSE.ColumnHeader index, "MAIL QTY OVERRIDE/DRAW" 
MSE.defauIt index, mycstr(objRST("mail_qty_override")) 

*Newstand Sale 
index = MSE.AddItem 
MSE.fieldtype index, "TEXT* 
MSE.ColumnHeader index, "NEWSTAND SALE" 
MSE.defauIt index, my<s^objRST("Newstand_Sale")) 

*Newstand Sale Marker 
index = MSE.AddItem 
MSE.fieldtype index, "SELECTLOV" 

MSE.CoIumnHeader index , "RESPONSE BASED ON SALE (Y). OR DRAW (N)" 
MSE.strSQL index, "N,Y" 

MSE.defauIt index, mycstr(objRST(' , Newstand_SaIe_Marker")) 

'List Category 

index - MSE.AddItem 

MSE.fieldtype index, "SELECT 

MSE.ColumnHeader index, "LIST CATEGORY" 

MSE.strSQL index, "SELECT Iist_cat_name from list_cats where productjd = " & Session("PRODUCTJD") & " order 
by list_cat_name" 

MSE.defauIt index, mycstr(objRST("Iist - cat_name")) 

'List Name 

index = MSE.AddItem 
MSE.fieldtype index, "SELECT" 
MSE.ColumnHeader index, "LIST NAME" 

MSE.strSQL index, "SELECT list_name from list_names where product_id = " & Session(" PRODUCTJD") & " order by 

listjiame" 

MSE.defauIt index, mycstr(objRST("Hst_name")) 

'List Segment Name 
index = MSE.AddItem 
MSE.fieldtype index, "SELECT" 
MSE.ColumnHeader index, "LIST SEGMENT NAME" 

MSE.strSQL index, "SELECT tist_scgment_name from list_segments where productjd = " & Session("PRODUCTJD") 
& " order by list_segment_namc" 

MSE.defauIt index, my<str(objRSTnist_segment_name")) 

"List cost actual CPM 
index = MSE.AddItem 
MSE.fielaType index, TEXT" 

MSE.CoIiimnHeader index, "LIST COST ACTUAL CPM" 
MSE.defauIt index, mycstr(objRST("list_cost - actual_cpm*)) 

'List Cost Basis 
index = MSEAddltem 
MSE.fieldType index, "SELECTLOV" 
MSE.CoIumnHeader index, "LIST COST BASIS" 
MSE.strSQL index, "Mail QTY.Merge Purge QTY.Undefined" 
MSE.defauIt index, mycstr(objRST("Iist_costJ>asis")) 
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'List Cost Factor 
index = MSE.Addltem 
MSE.FicldTypc index, "TEXT" 
MSE.CoIumnHcadcr index, "LIST COST FACTOR" 
MSE.default index, mycstr(objRST("list_cost_factor")) 

'Merge Purge QTY 
index = MSEj\ddItem 
MSE.Fieldtype index, "TEXT" 
MSE.ColumnHeader index, "MERGE PURGE ATY" 
MSE.default index, mycstr(objRST("merge_purge_qty")) 

'Expense Set 

index = MSE.additem 

MSE.fieIdtype index, "SELECT 

MSE.ColumnHeader index, "EXPENSE SET" 

MSE.strSQL index, "select e_set_namc from expense_sets where product_id = " & Session(" Productjd") & " order by 
e_set_name" 

MSE.default index, mycst^(objRST("e_set_name• , )) 

'Revenue Set 

index = MSE.additem 

MSE.fieIdtype index, "SELECT" 

MSE.ColumnHeader index, "REVEUE SET" 

MSE.strSQL index, "select r_set_name from rcvcnuc_sets where productjd = " & Session(" PRODUCT JD") & " order by 
r_set_name" 

MSE.default index, mycstr(objR5T("r_set_name")) 
'Package 

index = MSE. Add item 
MSE.fieIdtype index, "SELECT 
MSE.Columnheader index, "PACKAGE" 

MSE.strSQL index, "select package_name from prod_panel_package where productjd = " & Session(" PRODUCTJD") 
& " order by package_name" 

MSE.default index, mycstr(objRST("panel_pkg")) 

'Subtotal Flag 

index = MSE.Addltem 

MSE.fieldType index, "SELECTLOV" 

MSEColumnHeader index, "SUBTOTAL FLAG" 

MSE.strSQL index, "Truc,False" 

MSE.default index, mycstr(objRST("subtota]_fiag")) 

'Optional Effort ID 
index = MSE.additem 
MSE.fieIdtype index, "TEXT 

MSE.ColumnHeader index, "OPTIONAL EFFORT FLAG" 
MSE.default index, mycstr(objRST("optionaJ_cfTortJd")) 

'Record CD 

index = MSE.Addltem 

MSE.fieldType index, "RECORDID" 

MSE.ColumnHeader index, " " 

MSE.default index, mycstr(objRST("rec_id")) 

objRST.movenext 
wend ' objRST 
objRST.close 
Table Headers 

%> <form method="POST action="<%=! jhis Jile%>" name="Group_Edit - Form" cellpadding="3" cellspacing ="3"> 
<table> 

<% 

'response.write (Scssion(" RECORDID LIST") & " Hello World") 
'Set record count 

%> <input type="HIDDEN" value="<%=RecsPerPage%>" name="p_RecCount"> <% 

'Display Table 

MSE.DisplayEditTable 
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%> 
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ms editpancl.asp 



<%@ Language=VBScript %> 

<!—# include fite : = , \./support/globai_constams.asp" -> 

<!— U include filc-'V./support/dbConnection.asp" — > 

<!- U include file^.ysupport/adoUtils.asp" -> 

<!- ^include file^-.Vsupport/srcTab.asp" -> 

<!- # include file^.Vsupport/navigation.asp" -> 

<!- # include file^Vsupport/objeditasp" -> 



I_this_file ="ms_cditpanel.asp" 
Session("refcr_page") = "ms_cditpaneLasp" 

if (Request Form("setupTab")o "0" and Request. FormCsetupTab") > * ") then Response. Red irect(RequestForm("setupTab")) 

savechanges - False 

page = request. querystringCpg") 

if not len(page) > 0 then 

page = requestform("pg") 

savechanges = True 

end if 
'Update 

if savechanges = True then 



'Get records 

recordcount - Requestform("p_RecCount") 
recordid = 
recordidlist = 

'response. write (" RecordCount -> " & cstr(recordcount) & *<br>") 

'response. write{Thcre are " & cstr(recordcount) & " records <br>") 
for i - 1 to recordcount 

recordid = Request formCrecJd" & cstr(i)) 

if recordid > " " then 

'init obj 

set PGE = new objPostGroupEdit 
PGE.init 

PGE.MSE_Row = i 
PGE.AddRecord recordid 
'response.write(cstr(recordid) + "<br>") 

'Set Stored Procedure info 
PGE.CIassType = "Multi Edit" 
PGE.SP = "sp_edit_pane!s" 
PGE.TableName = "panels" 
PGE.lsDelete = 0 
PGE.AddParam "panel_name" 
PGE.AddParam ■panel_date_start" 
PGE.AddParam "panel_type" 
PGE.AddParam "panel_subtypc* 
PGEj\ddParam "test_typc" 
PGEAddPararh "panel_pkg" 
PGE.AddParam "e_set_name" 
PGE.AddParam "r^sct~namc" 
'PGE.AddParam "newstand_sale_marker" 
PGE.AddParam "login" 
PGE.AddParam "rec_id" 
PGE.AddParam "IsDelete" 
objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "sp_edit_paner 
objCMD.CommandType = adCmdStoredProc 
objCMD.parameters.re fresh 
PGE.PostGroupEditsBySP 



<% 



end 



end if 
next 'i 
if 
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*Multi Select 

dim MSE ' Multi Select object 

dim strSQL ' SQL Query text 

dim NumOfRecords ' Total records matching whereclause - used for Prev and Next buttons 
dim RecsPerPage ' max number of records to display on each page 

'in it obj 

set MSE = new objGroupEdit 
MSE.init 

MSE.CIassType ~ "MultiSelect" 
MSE-action = l_this_file 
MSE.Retum_Page = "admin6a.asp* 
MSE.TableHeader - "Multi Edit" 
MSE.show = true 

recordidlist = SessionfRECORDIDLIST") 
MSE.MS_Page = page 

RecsPerPage = 5 

MSE.MS_RecsPcrPage = RecsPerPage 
MSE.MSJTable = "panels" 

MS_WhereClause = " where recjd in (" & SessionfRECORDIDLIST") & ")" 
MS.OrderBy = " Order by SOURCE_NAME " 
'response. write MS_WhereClause 

'open recordset for current page 
objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "PagedQucry" 
objCMD.CommandTypc = adCmdStoredProc 
objCMD.parameters.refresh 
objCMD.Parameters("@Page"). value = page 
objCMD.Parameters("@RecsPerPage") * RecsPerPage 
objCMD.Parameters("@QueryTable") * "panels" 
objCMD.Parameters("@WhereClausc") = MS_WhereClause 
objCMD.Parameters("@OrderBy") = MS_OrderBy 
set objRST ~ objCMD.executeO 

*responsc.write("Record ID list > " & Session("RECORDIDUST)) 
'response. write ("Page ->" + csuXRequest.querystringCpg"))) 

'strSQL = "pagedquery " + cstr(page) + ",5,'panels'," + chr(34) + MS_WhereClause + Chr(34) + "," + chr(34) + MS_OrdcrBy + 
chr(34) 

'rcsponse.write (strSQL) 

'objRST.opcn strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 

NumOfRecords - 0 
if not objRST.eof then 

NumOfRecords = objRST("MorcRecords") 

MSE.MS_NumOfRecords = NumOfRecords 

'response.write (NumOfRecords) 

else 

There are no more records 

'response.write There arc no more records to edit" 

rcsponse.redirect "admin6a.asp" 

end if 

while not objRST.eof 

MSE.NextRow 

'Panel Name 

index = MSE.Addltem 

MSE.fieldType index, TEXT" 

MSE.ColumnHeader index, "PANEL NAME" 

MSE.default index, mycstr(objRST("panel_name")) 

'Panel Date Start 
index = MSE.AddItem 
MSE.fieldType index, TEXT" 
MSE.ColumnHeader index, "PANEL DATE START" 
MSE.default index, mycstr(objRST("panel_date_stan")) 
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'Panel Type 

index = MSE.Addltem 

MSE.fieloType index, "SELECT 

MSE.ColumnHeader index, "PANEL TYPE" 

MSE.strSQL index, "SELECT panel Jype_name FROM corp_panel_type ORDER BY panel_type_name" 
MSE.default index, my<3tr(objRST("panel Jype")) 

'Panel SubType 
index = MSE.Addltem 
MSE.fieldtype index, "SELECT" 
MSE.CoJumnHeader index, "SUBTYPE" 

MSE.strSQL index, "SELECT panel_sub Jype^name from corp_panel_sub_typc order by panel_sub Jype_name" 
MSE.default index, mycstr(objRST("panel_subt>'pe")) 

Test type 

index = MSE.Addltem 
MSE.fieldtype index, "SELECT" 
MSE.ColumnHeader index, TEST TYPE" 

MSE.strSQL index, "SELECT panel jestjype_name from corp_panel_tcst_type order by panel Jest Jyp«_name" 
MSEdefault index, mycstr(objRST("testlype")) 

'Package Type 
index = MSE.AddItem 
MSETteldtype index, "SELECT" 
MSE.ColumnHeader index, "PACKAGE" 

MSE.strSQL index, "SELECT package_name from prod _panel_package where productjd = " & 
Session("PRODUCT_ID") & " order by package_name" 

MSE.de fault index, mycstr(objRST("panel_pkg")) 

'Expense Set 

index = MSE.Addltem 

MSE.fieldtype index, "SELECT" 

MSE.ColumnHeader index, "EXPENSE SET" 

MSE.strSQL index, "SELECT e_set_name from expense_sets where productjd = " & Session(" PRODUCTJD") & " 
order by e_set_name" 

MSE.default index, mycstr(objRST(' , e_set_name'')) 

'Revenue Set 

index = MSE.Addltem 

MSE.fieldType index, "SELECT" 

MSE.Co!umnHeader index, "REVENUE SET" 

MSE.strSQL index, "SELECT r_set_name from revenue_sets where productjd = " & Session(" PRODUCTJD") & " 
order by r_set_name" 

MSE.default index, mycstr(objRST("r_sei_namc")) 

*Newstand Marker 
'index = MSE.Addltem 
'MSE.fieldType index, "SELECTLOV" 
'MSE.ColumnHeader index, "NEWSTAND MARKER" 
'MSE.strSQL index, "N,Y" 

•MSE.default index, mycsti^objRSTCnewstand^sale^arker")) 
'Record ID 

index = MSE.Addltem 

MSEfieldType index, "RECORDID" 

MSEColumnHeader index, " " 

'MSE.strSQL index, "N,Y" 

MSE.default index, mycstr(objRST("recJd")) 

objRST.movenext 
wend * objRST 
objRST.close 
Table Headers 

%> <form meihod="POST action="<%=! Jhisjile%>" name="Group_Edit_Form" cellpadding="3" cellspacing ="3"> 



<table> 



<% 

'response, write (Session("RECORDIDLIST") & " Hello World") 
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'Set record count 

%> <input type="HIDDEN" va!ue="<%=RccsPerPage%>" name="p_RecCount"> <% 

'Display Table 

MSE.DispIayEditTable 



%> 
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noadminrights.asp 



<%@ Language= VBScript %> 

<!- ^include file="../support/global_constants.asp" -> 
<!-#include file^Wsupport/dbConnection.asp'' -> 
<!- U include fi1c=".7support/adouiiIs.asp" -> 
<!- ^include file=".7support/srcTab.asp" -> 



<html> 
<hcad> 

<tide>You Do Not Have Admin Rights for this product! </tit!e> 
</head> 

<body bgcolor^^CCFF'' vlink="00000<T link="003366"xfont size^^O^ 
<br> 

You Do Not Have Admin Rights for <%=Session(Title_name' , )%>!! 



<% 



l_this_file = "NoAdminRights.asp" 



%> 



</font> 
</body> 
</html> 
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nosetuprights.asp 



<%@ Language^VBScript %> 

<!- ^include filc=".ysupport/global_constants.asp" -> 
<!- ^include flle=\./suppo^t/dbCoIlnection.asp ,, -> 
<!- # include filc=".Vsupport/adoutils.asp" -> 
<!- ^include file="../support/srcTab.asp" -> 



<html> 
<hcad> 

<litloYou Do Not Have Setup Table Access Rights for this product!</titIe> 



<body bgcolor="#99CCFF" vlink="00000<r lintc="003366"xfont size="2<r> 
<br> 

You Do Not Have Setup Table Access Rights for <%=Session(Tit!e_name")%>!! 



<% 



I jhis_file = "NoSetupRights.asp" 



%> 



</head> 



</font> 
</body> 
</htmi> 
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searchbounccasp 

<%@ Language= VBScript %> 

<!- #include file=".Vsupport/gIobal_constants.asp" -> 
<!- #includc file=".Vsupport/dbCorinection.asp** -> 
<!- #includc file="../support/adoUtils.asp" -> 
<!- # include file="../suppoit/srcTab.asp" -> 

<% 

'parameters should be: 

' p.optio^p^^name, p_PRODUCT_ID, p_SRC_CAT_NAME, 
' p_SOURCEJ4AME,p_SRCJNDlCATORTp_camp_name 
' which url we redirect to . . . 
' parameters: Z -> record id 
Y => option 

' Response. write(This is so gay") 

p_action = cin^RequestQueryStringCX")) 

p_option = cintCRcquesLQueryString^Y")) 

'Response. write("<br> " & p_option) 
p_rec_id = cint(Request.QueryString ("Z")) 

' Response.write("<br> " & p_rec_id) 
' Response. Write pjgrp^name 

if p_option=0 then 

strSQL = "select GRP_NAME, TITLE NAME, PRODUCTJD. SRC CAT_NAME "_ 
&" from SRC_CATEGORY " _ 
& " where recjd =" & p_rec_id 

objRST.open strSQL, strSQLOLEDB, adOpcnStatic, adLockOptimistic 
session("GRP_NAME") = objRST.FieldsfGRP NAME"). Value 
session("TTTLE_NAME") = objRST.FieldsnTflE NAME"). Value 
session("PRODUCTJD") = obj RST. FieIds("PRODUCTJD"). Value 
session("SRCCAT_NAME") = obj RST. Fields("S RC_C AT_N AME"). Value 
objRST.dose 



elseif p_option=l then 

strSQL = "select GRP_NAME, Srcjndicator, TITLE_NAME, PRODUCTJD, SRC_CATNAME, SOURCE_NAME 

&" from SOURCE " _ 

& " where recjd =" & p_rec_id 
'Response. Write strSql 

objRST.open strSQL, strSQLOLEDB, adOpcnStatic, adLockOptimistic 
session("GRP_NAME") = objRST.Fields("GRP_NAME"). Value 
session("PRODUCT ID") =obj RST. Fields(" PRODUCTJD"). Value 
session(TITLE_NAME") =obj RST. FieldsCTTTLE NAME"). Value 
session("SRC_CAT_NAME") = objRST.Fieids("SRC_CAT_N AME"). Value 
sessionCSOURCE.NAME") « objRST.Fields("SOURCE_NAME"). Value . 
Session("SRC_INDICATOR") = objRST.FieldsfSRCJNDICATOR"). Value 
objRST.close 
if p_action =* 1 then 

Response. Redirect("editSource.asp?Z=" & p_recjd) 

else 

Response.Redirect("admin5a.asp' t ) 

end if 
elseif p_option=2 then 

strSQL = "select Srcjndicator, GRP.NAME, TTTLE.NAME, PRODUCTJD, SRC_CAT_NAME, SOURCE_NAME, 
CAMP NAME "_ 

& "from CAMPAIGNS", 
& " where recjd =" & p_recjd 

objRST.open strSQL, strSQLOLEDB, adOpcnStatic, adLockOptimistic 
session("GRP_NAME") = objRST.Fields("GRP NAME"). Value 
session("PRODUCTJD")=objRST.Fields("PRODUCT ID").Value * 
session("TTTLE_NAME") =obj RST. Fields(*TrTLE_N AME"). Value 
session("SRC_CAT NAME") = obj RST. FieldsfSRC CAT NAME"). Value 
scssion("SOURCE_NAME") = objRST.FieIds("SOURCE_NAME"). Value 
Scssion("CAMP_NAME") =objRST.FieIds("CAMP_NAME"). Value 
Session("SRC INDICATOR") = obj RST. FieldsfSRC .INDICATOR"). Value 
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objRST.close 

if p action = 1 then 

Response.Redirect("editCamp.asp?Z=" & p_rec_id) 

else 

Response.Redirect("admin6a.asp") 

end if 
elseif p_option=3 then 

strSQL = "select Src_indicator,GRP_NAME, TITLE_NAME, PRODUCTJD, SRC_CAT_NAME t SOURCE_NAME, 
CAMP_NAME, PANEL_NAME 
& " from PANELS 
& " where rec_id =" & p_rec_id 

objRST.opcn strSQL, strSQLOLEDB, adOpenStatic, adLockOptimistic 
session(* , GRP_NAME") - objRST.FieIds("GRP NAME"). Value 
sessionfPRODUCTJD") =objRST.Fields(-PRODUCT_ID"). Value 
session("nTLE_NAME") =objRST.Fields(TrTLE_NAME"). Value 
session("SRCCAT_NAME") = objRST.Fields("SRC_CAT_NAME"). Value 
sessionfSOURCE.NAME") = objRST.Ficlds("SOURCE_NAME"). Value 
Session(-CAMP_NAME-) = objRST.Fields("CAMP_NAME'*). Value 
Session(-PANEL_NAME") = objRST.Fields("PANEL_NAME"). Value 
SessionCSRCJNDICATOR") = objRST.Fields("SRCJNDlCATOR"). Value 
objRST.close 
if p_action - I then 

Response.Redirect("editPanel.asp?Z-" & p_rec_id) 

else 

Response.RedircctCadminkeys.htm") 

end if 
else 

Response. Write "<br> else this" 

end if 
%> 
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setupcampstalasp 



<%@ Language=VBScript %> 
<!- ^include file="../support/global_constants.asp" -> 
<!- ^include file=\./support/dbConnection.asp" -> 
<!- # include filc=".Vsupport/adoUtils.asp" -> 
<!- ^include file="../support/srcTab.asp* -> 
<!- ^include file=\./support/setupTab.asp" -> 
<!- #include file="../support/JavaScripts.asp" -> 
<% 

1 JhisJHe = "setupCampStaLasp" 
l_showPid = true 

if not ( session("Product_id") > " " ) then 
Resporise.Redirect("admin2a.asp?FR=" & l_this_file ) 
end if 



i_name = "Campaign Status" 

l_descr - The status of a Campaign <BR> (i.e. active, complete)." & vber 
%> 

<html> 
<head> 

<titlex%Response. Write l_name%x/title> 



<body bgcolor="99CCFF" background=".7graphics/adminhorzslice2.gir tcxt="#000000" 

link="#000000" vlink="#000000" marginwidth="0" marginheight="0" leftmargin="0" topmargin="0"> 
<form method="post" action name> 

<table width="660" border="0" cellspacing="10" ccllpadding="0" valign^top^ 

<tr va]ign="top"> 
<td valign="top"> 
<% 1 call setupTab's Left Caption 

LcftCaptions l_Name, l_descr, I_showPid,l_this_file 



<td rowspan="6* width="468" valign="top" AL1GN="LEFT"> 
<% * call setupTab's show 
dim 1 Jitlcs(2) 

l_titles(0) = "Campaign Status" 
l_tities(l) - "Description" 
l_editProc = "editCampStaLasp" 
l_addProc = "addCampStatasp" 
l_columnCOunt = 2 

myQ = "select camp_status jiame, CAMP_STATUS_DESCR, RECJD " _ 

& " from prod_CAMP_status where 

& " Productjd =" & SessionCPRODUCTJD") _ 

& " Order by camp_status_name " 

showSctupTable I titles, myQ, I editProc, I addProc, l_columnCOunt %> 
</td> ~ ~ 



</tr> 

</table> 
</form> 
</body> 
</html> 



</head> 



%> 
</td> 
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setupcamptvpc.asp 



<%@ Language=VBScript %> 

<!- M include file="../support/gIobal_constants.asp" -> 

<!- # include file="../support/dbConnection.asp" -> 

<!— # include ftle="../$upport/adoUtiIs.asp" -> 

<!— # include fiIe=".Vsupport/srcTab.asp" — > 

<!— # include file=".ysupport/setupTab.asp" — > 

<!- # include file=".7support/JavaScripts.asp" -> 



I_this_file = "setupCampType.asp* 
l_showPid = true 

if not ( session("Product_id") > " " ) then 
Response. Red irect("admin2a.asp?FR=" & l_this_file ) 
end if 

l_name = "Campaign Type" 
l_descr = "A broad classification of a Campaign which is " _ 
& " user defined and can differ between Sources, (i.e. Winter DM, hotline). " & vber 

%> 

<html> 
<head> 

<titlex%Response. Write l_name%X/title> 
</head> 

<body bgcolor^^CCFF" background^". Vgraphics/admi nhorzsIice2.gif text«"#000000" 

link="#000000" viink="#000000" marginwidth="0" marginheight="0" leftmargin="0" topmargin="0"> 
<form method="post" action name> 

<table width="660" border="0" cellspacings" 10" cellpadding="0" va!ign="top"> 

<tr valign="top"> 
<td vaJign="top"> 
<% ' call setupTab's Left Caption 

LeftCaptions l_name, l_dcscr, l_showPid,l_this_file 



<td rowspan="6" width="468" valign="top" ALIGN="LEFT> 
<% ' call setupTab's show 
dim l_titles(2) 

l_titles(0) = "Campaign Type" 
l_titles(l) = "Description" 
l_editProc = "cditCampType.asp" 
l_addProc = "addCampTypc.asp" 
l_columnCOunt = 2 

myQ= "select camp_type_name, CAMP_TYPE_DESCR, REC_tD 

& " from PROD_CAMP type where "_ 

& ■ Productjd «: & Session("PRODUCTJD") _ 

& " Order by camp_typc_name " 

showSetupTable l_titles, myQ, I editProc,l_addProc, l_columnCOunt %> 

</td> 



</tr> 

</table> 
</form> 
</body> 
</html> 



<% 



%> 

</td> 
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sctuncsct.asp 



<%@ Language=VBScript %> 
<!- U include filc=".7support/g!obal_constanls.asp" -> 
<!- U include file=\Vsupport/dbConnection.asp" -> 
<!- U include file=^./suppo^t/adoUtils.asp ,, -> 
<!- U include file^.Vsupport/srcTab.asp" -> 
<!- U include riIe=".7support/setupTab.asp" -> 
<!- U include file="../support/JavaScripts.asp" -> 
<% 

I Jhisjile = "setupESctasp" 
l_showPid = true 

if not ( session("Product_id") > " " ) then 
Response.Redirect("adm!n2a.asp?FR=" & l_this_file ) 
end if 

l_namc = "Expense Set" 

Ijiescr = "A set of expenses which can be applied to a Campaign, Panel or Key." & vber 
%> 

<html> 
<head> 

<titlex%Response.Write l_name%x/title> 
</head> 



<body bgcolor="99CCFF" background=^7graphics/adminhorzslice2.gif , text="#000000" 

link="#000000" vlink="#0000(Xr marginwidth="0" marginheight="0" leftmargin="0" topmargin="0"> 
<form method="post" action name=form I id=forml> 

<tablc width="660" border="0" cellspacing*" 10" cellpadding="0" valign="top"> 

<tr valign="top"> 
<td valign="top"> 
<% 1 call setupTab's Left Caption 



LeftCaptions l_name, l_descr, l_showPid,l_this_file 
%> 
</td> 

<td rowspan="6" width="468" valign="top" ALIGN="LEFT> 
<% * call setupTab's show 
dim Ijitles(l) 
Ijitles(O) = "Expense Set" 

l_editProc = "editESetasp" 
f addProc = "addESetasp" 
l_columnCOunt = 1 

myQ = "select c_set_name , RECJD " _ 
& "from expense_sets " 

& " where product_id = " & Session("PRODUCT JD") _ 
& " Order by e_sct_namc " 

showSetupTable Ijitles, myQ, l_editProc,i_addProc, l_columnCOunt %> 



</td> 

</tr> 

</tab!e> 
</form> 
</body> 
</html> 
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<%@ Unguage=VBScript %> 
<!~#include file="../support/global_constants.asp" -> 
<!- ^include fiIe="../support/dbConnection.asp" -> 
<!- U include file="../support/adoUtiIs.asp" -> 
<!- U include file=\./support/srcTab.asp" -> 
<!-#include file^Wsupport/setupTab.asp" -> 
<!- # include file="../support/JavaScripts.asp" -> 
<% 

l_this_file = "setupListCaLasp" 
l_showPid = true 

if not ( session("Product_id") > " " ) then 
Response.Redirect("admin2a_asp?FR=" & Ijhisjile ) 
end if 



l_name - "List Category" 

l_descr = "A broad category of related lists." & vbcr 
%> 

<html> 
<head> 

<titlex%Response. Write l_name%x/iitle> 
</head> 

<body bgcolor="99CCFF" background=".ygraphics/adminhorzsiice2.gir text="#00000(T 

link="#000000" vlink="#00000<r marginwidth="0" marginhcight="0" leftmargin="0" topmargin="0"> 
<form method="post" action name> 

<table width="660" border="0" cellspacings" 10" cellpadding= 5 "0" valign="top"> 

<tr va!ign="top"> 
<td valign="top"> 
<% ' call setupTab's Left Caption 

LeftCaptions I name, l_descr, l_showPid, I_this_file 
%> 
</td> 

<td ro\vspan="6" width="468" vaIign="top" ALIGN="LEFT"> 
<% ' call setupTab's show 
dim l_tities(l) 
!_titles(0) = "List Category" 
l_titles(l) = "Description" 
l_editProc = "editListCaLasp" 
l_addProc = "addListCatasp" 
l_columnCOunt = 2 

myQ = "select !ist_cat_name,list_cat_descr, RECJD 
& " from list_Cats " 

& ■ where productjd = " & SessionfPRODUCTJD") _ 
& " Order by list_cat_name " 

showSetupTable l_titles, myQ, 1 editProc,! addProc, l_columnCOunt 

%> 
<td> 

</tr> 

</table> 
</form> 
</body> 
</html> 
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<%@ Language^VBScript %> 
<!- tfinclude fiIe=".Vsupport/globaJ_constants.asp" -> 
<!- ^include file^Vsupport/dbConnection.asp" -> 
<!— # include fiIc=".7support/adoUtils.asp" — > 
<!— #include file^"../$upport/srcTab.asp" -> 
<!— # include fi!e="../support/setupTab.asp" -> 
<!— ^include file="../support/JavaScripts.asp" -> 
<% 

l_this_file = "setupListName.asp" 
l_showPid = true 

if not ( sessionfProductJd") > " " ) then 
Response.Redirect("admin2a.asp?FR=" & I Jhis_file ) 
end if 



l_namc = "List Name" 
l_descr = The name of a list" & vber 

%> 

<html> 
<head> 

<titlex%Response.Write I_name%X/tit!e> 
</head> 

<body bgcolor="99CCFF* background=".ygraphics/adminhorzslic*2.gir text="#000000 ,, 

link="#000000" vlink="#000000" marginwidth="0" marginheight="0" leftmargin="0" topmargin="0*> 
<form method="post" action namc> 

<table width="660" border="0" cellspacing=" 1 0" cellpadding="0" va!ign="top"> 

<tr valign="top"> 
<td va!igrv="top"> 
<% ' call setupTab's Left Caption 

LeftCaptions 1 name, 1 descr, l_showPid, I this file 
%> 
</td> 

<td rowspan="6" width="468" valign="top" ALIGN="LEFT"> 
<% * call setupTab's show 
dim l_titles(l) 
Ijitles(O) = "List Name" 
l_titles(l) = "Description" 
l_editProc = "editListName.asp" 
I_addProc = "addListName.asp" 
l_coIumnCOunt = 2 

myQ ** "select list_name, list_name_description , RECJD " _ 
& * from list_names " _ 

& " where product Jd = " & Session("PRODUCT_ID") _ 
& " Order by list_name " 

showSetupTable I titles, myQ, I editProcJ addProc, I columnCOunt %> 

</td> 
</tr> 



</table> 
</form> 
</body> 
</html> 
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<%@ Language= VBScript %> 

<!- ^include file=\Vsupport/global_constants.asp" -> 

<!- flinclude file=".7support/dbConnection.asp" ~> 

<!- ^include file^Wsupport/adoUtils.asp" -> 

<!- ^include fiIe=".Vsupport/srcTab.asp" -> 

<!- # include filc-".7support/sctupTab.asp" -> 

<!- U include file="../support/JavaScripts.asp" -> 



l_this_file = "setupListSegmenLasp" 
IshowPid = true 

if not ( session("Product_id") > " " ) then 
Response.Redirect("admin2a.asp?FR=" & l_this_file ) 
end if 



l_name = "List Segment" 

l_descr - "A specific selection from a list (i.e. 90 day purchasers, expires, male). " & vber 
%> 

<html> 
<head> 

<titIcx%Response. Write l_name%x/title> 
</head> 



<body bgcolor^"99CCFF" background=".ygraphics/adminhorzslice2.gir text="#000000" 

link="#000000" vlink="#000000" marginwidih="0" marginheight="0" leftmargin="0" topmargin="0"> 
<form method =" post" action name> 

<table width="660" border="0" cellspacings" 10" cellpadding="0" valign="top"> 

<tr valign="top"> 
<td valign="top"> 
<% ' call setupTab's Left Caption 



LeftCaptions "List Segment", l_descr, l_showPid, l_this_file 
%> 
</td> 

<td rowspan="6" width="468" valign="top" ALIGN="LEFT"> 
<% * call setupTab's show 
diml_titles(I) 
IJitles(O) = "List Segment" 
f titles(l) = "Description" 
l_editProc = "editListSegmentasp" 
l_addProc = "addListSegmentasp" 
l_columnCOunt = 2 

myQ = "select list_segment_name, list_segment_description , RECJD " _ 
& " from list_segments " _ 

& " where productjd = " & Session("PRODUCT_ID") _ 
& " Order by list_segment_name " 

showSetupTable 1_titles, myQ, 1 editProc.l addProc, l_columnCOunt %> 

</td> 



</tr> 

</table> 
</form> 
</body> 
</html> 



<% 



Integrated Marketing Technology 9/27/00 2:22 PM 



Page 188 of 200 



IMT Subscription Marketing Reporting System 



setuppanelpackagcasp 



<%@ Language= VBScript %> 
<!- # include file=".Vsupport/global_constants.asp" -> 
<!- # include file^\Vsupport/dbConjiection.asp" -> 
<!- #include file=\Vsupport/adoUtils.asp" -> 
<!- # include file=".7support/srcTab.asp" — > 
<!- # include fiIe=".Vsupport/setupTab.asp" -> 
<!- # include file="../support/JavaScripts.asp" — > 
<% 

l_this_file = "setup PanelPackage.asp" 
!_showPid = true 

if not ( scssion("Product_id") > " " ) then 
Response. Redircct( ,, admin2a.asp?FR='' & I Jhis_fi!e ) 
end if 

l_name = "Panel Package" 
l_descr = "The code or description of a specific mailed package." & vbcr 

%> 

<html> 
<head> 

<title>Panel Package</title> 
</head> 

<body bgcolor="99CCFP background^".7graphics/adminhorzsIice2.gir text="#000000" 

link="#000000" vlink="#000000" marginwidth="0" marginheight="0" leftmargin="0" topmargin="0"> 
<form method="post" action namc> 

<table width s ="660" border="0" cellspacing="lCT cellpadding="0" vaJign="top*> 

<tr valign="top*> 
<td valign="top"> 
<% * call setupTab's Left Caption 

LeftCaptions l_namc, l_descr, l_showPid,l_this_file 
%> 
</td> 

<td rowspan="6" width="468" valigji="top" ALIGN="LEFT"> 
<% ' call setupTab's show 
dim l_titles(l) 

l_titles(0) = "Panel Package" 
Ijitles(l) = "Description" 

l_editProc = "editPanelPackage.asp" 
l_addProc = "addPanelPackage.asp" 
l_columnCOunt = 2 

myQ - "select Package_name, Package_description, RECJD 

& " from prod_j>anel_packa£e where productjd = " & Session("PRODUCTJD") _ 

& " Order by Packagejiame " 

showSetupTable Ijitles, m><3, l_editProc f l_addProc, l_columnCOunt %> 

</td> 

</tr> 

</table> 
</form> 
</body> 
</html> 
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<%@ Language=VBScript %> 

<!- U include file=*../support/globaJ_constants.asp" -> 

<!- U include file=".7support/dbConnection.asp" -> 

<!- include file^Wsupport/adoUtils.asp" -> 

<!- # include filc=".7support/srcTab.asp" -> 

<!- U include file=\-/support/setupTab.asp" -> 

<!- # include fiIe="../support/JavaScripts.asp" -> 

<html> 
<head> 

<title>Panel Sub Type</title> 
</head> 

<body bgcolor="99CCFF" background^". 7graphics/adminhorzslice2.gir text="#000000" 

linlc^tfOOOOOO" vlink="#000000" marginwidth="0" marginheight="0" leftmargin="0" topmargin="0"> 
<form method="post" action name> 

<lable width="660" border="0" cellspacings" 10" cellpadding="0" valign="top"> 

<lr valign="top w > 
<td valign="top"> 
<% * caJI setupTab's Left Caption 

l_descr - "Another field used to further define a set of related Panels (if necessary), (i.e. sweepstakes, newstand, inserts)/ & vber 

l_showPid = false 

LeftCaptions "Panel Sub Type", l_descr, l_showPid,l_this_fiIe 
%> 
</td> 

<td rowspan="6" width="468" va!ign="top" ALIGN="LEFT> 
<% ' call setupTab's show 
dim l_titles(l) 

l_titles(0) = "Panel Sub Type" 
Ijitles(l) - "Description" 

I_editProc = "editPanelSubType.asp" 
l_addProc = "addPanelSubType.asp" 
l_columnCOunt = 2 

myQ - "select pan e l_s u b_typc_n am e T p an e l_s u b_type_descr, REC_ID " _ 
& " from corp_panel_sub_type " _ 
& " Order by panel_sub_typc_name " 

showSetupTable l_titles, myQ, l_editProc f l_addProc, l_co!umnCOunt %> 

</td> 

</tr> 

</tab!e> 
</form> 
</body> 
</html> 
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<%@ Language=VBScript %> 

<!- # include file=\./support/global_constants.asp" -> 

<!- #include fiIe=".Vsupport/dbConnection.asp" — > 

<!- #includc fiIe=\./support/adoUiils.asp" -> 

<!— # include file=\./support/srcTab.asp" — > 

<!- # include file-Vsupport/setupTab.asp" -> 

<!- ^include file=\./support/JavaScripts.asp" -> 

<html> 
<head> 

<title>Panel Sub Type</titie> 
</head> 

<body bgcolor="99CCFF" background= - .ygraphics/adminhorzsiice2.gir text="#000000" 

lintc="#000000" vlink="#000000" marginwidth="0" marginheight="0" leftmargin="0" topmargin= - 0"> 
<form method="post" action name> 

<table width="660" border="0" cellspacings" 10" cellpadding^O" valign="top"> 

<tr va!ign i ="top"> 
<td valign="top"> 
<% 1 call setupTab's Left Caption 

l_descr = "A field used to define a set of related panels by test method (i.e. price, offer, term). " & vber 
I showPid = false 



LeftCaptions "Panel Test Type", l_descr, l_showPtd, l_this_file 
%> 
</td> 

<td rowspan="6" width="468" va!ign="top" ALIGN="LEFT> 
<% ' call setupTab's show 
dim Ijitles(l) 

Uitles(O) = "Panel Test Type" 
l_titles(l) = "Description" 

l_editProc = "editPaneiTestTypcasp" 
l_addProc = "addPanelTestTypc.asp" 
l_columnCOunt = 2 

myQ = "select panel_test_type_name,panel_test_type_descr, RECJD " _ 
& " from corp_paneI_test_typc " _ 
& " Order by panel_test_type_name " 

showSetupTable I titles, myQ, l_editProc,l_addProc, l_columnCOunt %> 

</td> 

</tr> * 

</tab!e> 
</form> 
</body> 
</html> 
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<%@ Language=VBScript %> 

<!- U include file=\./support/gIobal_constants.asp" -> 

<!- U include file="../support/dbConnection.asp" -> 

<!-#include file=".Vsupport/adoUtils.asp" -> 

<!-#include file="../support/srcTab.asp" -> 

<!- # include file="../support/setupTab.asp" -> 

<!- # include file=".Vsupport/JavaScripts.asp" -> 

<html> 

<head> 

<title>PaneI Type</litle> 
• </head> 

<body bgcolor="99CCFF" background=",7graphics/adminhorzslicc2.gir text="#000000" 

link="#000000" vlink="#000000" marginwidth="0" marginheight="0" lcftmargin="0" topmargin="0"> 
<form method="post" action name> 

<table width="660" border="0" cellspacings" 10" cellpadding="0" valign="top"> 

<tr valign="top"> 
<td valign="top"> 
<% * call setupTab's Left Caption 

Idescr = "A set of related panels typically used to distinguish control panels from test panels. " & vber 

l_showPid = false 

LeftCaptions "Panel Type", 1 descr, l_showPid, 1_this_file 
%> 
<Ad> 

<td rowspan="6" width="468" valign="top" AUGN-"LEFT"> 
<% 1 call setupTab's show 
dim I_titles(l) 
l_titles(0) = "Panel Type" 
l_titles(I) = "Description" 

l_editProc = "editPanelType.asp" 
l_addProc = "addPanelType.asp" 
l_columnCOunt - 2 

myQ = "select panel_type_name,panel_type_descr, RECJD "_ 
& " from corp_panel_type " _ 
& " Order by pane!_typc_name " 

showSetupTable l_titles, myQ, l_editProc,l_addProc, l_columnCOunt %> 

</td> 

</tr> 

</table> 
<7form> 
</body> 
</html> 
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<%@ Unguage=VBScript %> 
<!- U include file=\ysupport/globai_constants.asp" -> 
<!- # include fiIc=".ysupport/dbConnection/asp" -> 
<!- # include file=".ysupport/adoUtils.asp" -> 
<!- U include fiIe=\ysupport/srcTab.asp" -> 
<!- # include file=".Vsupport/setupTab.asp" -> 
<!- #include fiIe=\y$upport/JavaScripts.asp" -> 
<% 

l_this_file = "setupPriorSrcDesc.asp" 
I_showPid = true 

if not ( session("Product_id") > " " ) then 

Response.Redirect("admin2a.asp?FR=" & l_this_fi!e ) 
end if 



l_name = "Source Identifier" 
I desCT = "Describes Prior Sources" & vber 
%> 

<html> 
<head> 

<title>Prior Source Description</title> 
</head> 

<body bgcolor="99CCFF" background=".ygraphics/admirrfiorzslice2.gir text="#000000" 

link="#000000" vlink="#00000(T marginwidth="0" marginheight="<r Ieftmargin="0" topmargin="0"> 
<form method^" post" action name=forml id=forml> 

<lable width="660" border="0" cellspacings" 10" cellpadding="0" valign="top"> 

<tr vaiign="top"> 
<td valign="top"> 
<% ■ call setupTab's Left Caption 

LeftCaptions l_name, 1_descr, l_showPid,l this_file 
%> 
</td> 

<td rowspan="6" width="468" valign="top" ALIGN="LEFT"> 
<% ' call setupTab's show 
dim l_titles(6) 

l_titles(0) - "Source Identifier" 

l_titles(l) - "Renewal Prior Source Description" 

l_titles(2) = "Billings Current Source Description" 

l_titles(3) = "Model Source Category" 

l_titles(4) = "Model Source Description" ' 

l_titles(5) = "Agent Source Description" 

l_editProc = "editPriorSrcDesc.asp" 
l_addProc = "addPriorSrcDesc.asp" 
l_columnCOunt = 6 

myQ = "SELECT prior_sourcejdentifier, prior_source_desc, billing^cur_src_desc, model^source^cat, model_source, 
agent_src_dcsc, REC_ID 

& " FROM prior_source desc WHERE " _ 

& " Productjd «" & Session("PRODUCT_lD") _ 

& " ORDER BY prior_source_identifier " 

showSetupTable I titles, myQ, l_editProc,l addProc, l_co!umnCOunt %> 

</td> 

</tr> 

</table> 
</form> 
</body> 
</html> 
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sctuprsct.asp 

<%@ Languagc= VBScript %> 
<!- # include file="../support/globai_constants.asp" -> 
<!- # include file=".ysupport/dbConnection.asp" -> 
<!- # include file="../support/adoUtils.asp" -> 
<!- U include fiIc=".7support/srcTab.asp" -> 
<!- ^include file="../support/setupTab.asp" -> 
<!- # include file=".7support/JavaScripts.asp" -> 
<% 

l_this_file = "setupRSetasp" 
l_showPid = true 

if not ( sessionCProductJd") > " " ) then 
Response.Redirect("admin2a.asp?FR=" & l_this_filc ) 
end if 

l_name = "Revenue Set" 

l_descr = "Revenue over and above subscription revenue, applied to a Campaign, Panel or Key. (i.e. List Rental Revenue, 
Advertising Revenue). " 

%> 

<html> 
<head> 

<titlex%Response. Write l_name%x/title> 
</head> 

<body bgcolor="99CCFF" background=".ygraphics/adminhor2slicc2.gir text="#000000" 

link="#000000" vlink="#000000" marginwidth="0" margirtheight^O" leftmargin="0" topmargin="0"> 
<form method="post" action name=forml id=forml> 

<table width="660" border="0" cellspacings" 10" cellpadding="0" valign="top"> 

<tr valign="top"> 
<td valign="top"> 
<% ' call sctupTab's Left Caption 

LeftCaptions l_name, l_descr, I_showPid, l_this — file 

%> 
</td> 

<td rowspan="6" widlh="468" valign="top" ALIGN="LEFT"> 
<% ' call setupTab's show 
dim l_titles(l) 
l_titles(0) = "Revenue Set" 

l_editProc = "editRSetasp" 
l_addProc = "addRSetasp" 
l_columnCOunt - 1 

myQ = "select r_set_name , RECJD " _ 
& "from revenue_scts " _ 

& " where product Jd =" & Session("PRODUCT_ID") _ 
& " Order by r_sct_namc " 

showSetupTable I titles, myQ, I editProc,l_addProc, l_co!umnCOunt %> 

</td> 

</u*> 

</table> 
</form> 
</body> 
</htmI> 
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sctupsourcenamc.asp 



<%@ Languagc=VBScript %> 

<!- U include file=".Vsupport/global_constants.asp" -> 

<!- U include fiIe=".7support/dbConnection.asp" -> 

<!- ^include file=".Vsupport/adoUtils.asp" -> 

<!- 8 include file="../support/srcTab.asp" -> 

<!- U include file=".7support/setupTab.asp" -> 

<!- U include file=".Vsupport/JavaScripts.asp* -> 

<html> . 
<head> 

<litIe>Source Description</title> 
</head> 

<body bgcolor="99CCFF" background= w .7graphics/adminhor2slice2.gir text="#000000" 

link="#000000" vlink="#000000" marginwidth="0" marginheight="0" leftmargtn="0" topmargin="0"> 
<form mcthod="post" action name=forml id=forml> 

<table width="660" border="0" cellspacings" 10" cellpadding="0" vaJign="top"> 

<tr valign="top"> 

<td valign="top"> 

<% * call setupTab's Left Caption 

l descr = "Describes a specific channel of sale." & vber 

I showPid - false 



LeftCaptions "Source Description", l_descr, l_showPid, l_this — file 



<td rowspan="6" width="468" valign="top" ALIGN="LEFT> 
<% 1 call setupTab's show 
dim l_titlcs(l) 
l_titles(0) = "Source" 
l_titles(l) = "Description" 



l_addProc = "addSourccName.asp" 
I_columnCOunt = 2 

myQ = "select u_source_name, u_source_description, REC_ID " _ 
& " from Source_descriptions " _ 
& " Order by u_source_name " 

showSetupTable Ijitles, myQ, l_editProc,l jiddProc, l_columnCOunt %> 

</td> 



. </tr> 
</table> 
</form> 
</body> 
</html> 



%> 

</td> 



editProc - "editSourceNamc.asp" 
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<%@ Language^ VBScript %> 
<% Response. Red ircctCRequesLForm("setupTab")) %> 
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tabautosetup.asp 

<%@ Language=VBScript %> 

<!- #include file=".Vsupport/global_constants.asp'' — > 
<!- ^include fllc : =":7suppo^t/dbConnection.asp' , -> 
<!- ^include fiIe=".7support/adoUtils.asp" -> 
<!- #includc fllc=".7support/srcTab.asp" -> 
<!- U include file^.Vsuppon/JavaScripts.asp" -> 

<% 

l_ihis_fi!c = "tabautosetup.asp" 
l_showPid = true 

if not ( session("Product_id") > " " ) then 

. Response. Red irect( ,, admin2a.asp?FR= w & ljhis_file ) 

end if 

If Requestfo^m("RUNAUTOSETUP ,, ) o then 'run autosetup_wizard stored proc 
'response, write "<font size^S^Executing AutoSetup Wizard „.</fontxp>" 
objCMD.ActiveConnection = strSQLOLEDB 
objCMD.CommandText = "autosetup_wizard" 
objCMD.CommandType - adCmdStoredProc 
objCMD.Parameters.refresh 

objCMD.Parameters( 1 ). Value = cint(O) '0 for no returned text, 

non-zero to print output 

objCMD.Parameters(2). value = cint(Session("Product_id")) 'product Jd 

Set TempNonSessionVar = objCMD.ExecuteO 
*response.rcdirect("tabautosetup.asp**) 

end if 

l_this_file = "admin4a.asp" 

Session("refcr_page") - "admin4a.asp" 
Session("referJTitle") = "Source - 

%> 

<hcadxtitie>tabautosetup.asp</title> 

<% LorieScripts %> 

</head> 

<body bgcoIor="#99CCFF" vlink="000000" link^'Ot^e" 

onUad^MMjretradlmagesOgraphics/edi^ 

5899269583T> 

<% * <body bgcolor="#99CCFF" vlink^OOOOOO" Iink="003366*> %> 

<table width="64<r border="0* cellpadding="2 , '> 
<% prevSelections (3) %> 

<form methods-post" action^tabautosetup.asp" id="form2" name="form2**> 
<tr valign^BOTTOM'^ 

</M> 

<td width="500"> 
<p> <% 

strSQL = "select source_namc, srcjndicator, valid_from_datc, valid_to_date, setupjnask, e_sct_namc, recjd " & _ 
" from autosetup_scheme " & 

■ where productjd = • & SessTonfPRODUCTJD*) & _ 
" order by sre cat_name " 

%> 

</td> 
</form> 
</tr> 

<tr valign="top"> 

<td width="64(T co1span="3*> 
<p> </p> 
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</td> 
</tr> 
</tablO 
<% 

l_qucry = sirSQL 

l_columnCount = 6 
!_addProc = "add_autosctup.asp" 
l_editProc = "edit_autosetup.asp" 
dim l_title(6), l_co!umnWidth(6) 

l_titlc(0) « " Source " 
l_title(l) = " Source Indicator " 
l_title(2) = " Select Date From " 
l_title(3) = " Select Date To" 
Uitle(4) = " Setup Mask" 
I title(5) = " Expense Set " 
fcolumnWidth(0) = "!66" 
l_columnWidth(!)»"41" 
I_coIumnWidth(2) = "50" 
l_columnWidth(3) = "50" 
I_coIumnWidth(4) = "50" 
l_columnWidth(5) = "50" 

%> 

<form method =post action="tabautosetup.asp" id="formid" narnc="formname"> 
<ahref^"http7Avwwjmtne^ork.coni/he^^ target= : "_blank , '>AutoSetup 
Instmctions</a><brxbr> 

<input type="SUBMrr VaIue="Run Auto-Setup Wizard" Name=" R UN AUTOS ETUP" id=" RUN AUTOS ETUP"> 
</form> 

<font size^S^AutoSetup Schemes</fontxp> 

<% adminTable l_TitIe, l_Query, l_editfrocJ_addProc,I_columnWidth, L_ColumnCount 

l_query - "select sre cat_name, campaign code, campaign_description, campaign date, panel scheme, rec_id 

"&_ 

" from autoselup_campaign_def " &_ 

" where productjd = " & Session("product_id") & _ 
" order by src_cat_name, campaign_description 1 campaign_code " 

'redim I jitle(4) 
'redim l_coIumnWidth(4) 
l_columnCount = 5 
I_addProc = "add_campaign_def.asp" 
. l_editProc = "edit_campaign_def.asp" 
1 Jitle(0) = " Source Category " 
ftitle(l) = " Campaign Code " 
l_title(2) - * Campaign Description " 
l_title(3) = " Campaign Date " 
l_title(4) = " Panel Scheme " 

I columnWidth(0) = "50" 
l_columnWidth(l)-"50" 
I columnWidth(2) = "50" 
l_columnWidth(3) = "50" 
l_columnwidth(4) = "50" 
%> 

<f» 
<p> 

<font size^'^Campaign Name Definitions</fontxp> 

<% adminTable IJTitle, l_Query, l_editProc,l_addProc,l_column Width, L_ColumnCount 



rec id"& 



l_query = "select source_name, sourcejndicator, prior_source_indicator ( vaIid_from_date, valid_to_date, 

" from autosetup_renewal_psdef " & _ 

" where product jd - " & Session("product_id") & _ 

" order by src_cat_name " 
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l_columncount - 5 

I_addProc - "add_renewal_psdef.asp" 
l_editProc = "edit_renewal_psdef.asp" 
I Jitle(0) = " Source - 
Ijitle(l) = " Source Indicator " 
l_title(2) = " Prior Source Indicator " 
ljitle(3) = " Valid From" 
I_titlc(4) = * Valid To " 

l_columnWidth(0) = "50" 
l_coIumnWidth(I) = "50" 
IjttlumnWidthpj^MOO" 
l_columnWidth(3) = "50" 
l_columnWidth(4) = "50" 
%> 



<p> 

<% adminTablc IJTitle, l_Qucry, l_editProcJ_addProc,l_column Width, L_ColumnCount %> 



I_qucry = "select panel_scheme, pancl_codcs, panel_name, rccjd " & _ 
" from autosetup__paneI_def " & _ 
" where product_id = " & Session("product_id") & _ 
" order by panel_scheme " 

l_coIumncount = 3 
I_addProc = "add_partel_def asp" 
I_editProc - "edit_panel_def.asp" 
l_title(0) = " Panel Scheme " 
l_title(l) = " Panel Codes" 
Ijitle(2) = " Panel Name" 

I_co!umnWidth(0) « "50" 

I_coIumnWidth(l) = "l00" 

I co!umnWidth(2) = "50" 

%> 

<p> 

<p> 

<font size^S^Panel Name Definitions</font> 
<p> 

<% adminTable IJTitle, LQuery, l_editProcJ_addPrcK:,i_columnWidth, L_ColumnCount %> 



<p> 
<p> 

<font size=*5*>Renewai Prior Source Defmitions</font> 



<p> 
<p> 
<% 



</form> 
</body> 
</html> 
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